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ABSTRACT 

A research study was conducted to investigate a 
control and display system for use with communication aids by 
physically disabled persons. A modification pf. a row/column scanning 
system was investigated to increase speed ancJ accuracy of access/to 
the communication system by six children with athetoid ..cerebral 
palsy. Four systems were compared: row/column directed scan (two 
switches); row/column auto scan (one switch); row auto scan (one 
switch); and column auto scan (one switch). Results revealed no 
significant differences among systems for scan time to select the 
-^correct target. The row/column auto scan (the most widely prescribed 
system for severely disabled persons) resulted in significantly more 
errors than any of the other three systems. It was also found that 
individuals who would have been or had already been prescribed a 
single switch system were able to operate two switches* 
(Author/CL) 
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FORWARD 



This project was a joint effort between the Rehabilitation 
Engineering^ Center, Children'is vttospital at Stanford and Psycho- 
Linguistic Research Associates. Allen Dittraan was' the Office of 
Special EdQcation Project Manager. Maurice LeBlanc, Principal 
Invesf igatori Director of Research, Children's Hospital at Stanford, 
directed the project. Margaret Barker, co-principal investigator, 
implemented the experimental design by coordinating with local 
schools and her own patient population, screening candidate subjects 
aad administering the screening test and directTng the dtftB " 
collection by the' research assistants. Douglas Williams and Carol 
•Simpson of Psycho-Linguistic • Reseai^ch Associates designed the 
. experiment in detail and provided scientific expertise in the 
selection of stimuli, over-all guidance fpr the computer programming, 
and guidelines fot the research assistants. PLRA analyzed the data,* 
Interpreted the results, and, together with Marparet Barker; prepared 
the "text of this* final report. The software was developed by Sol 
Katzman, a systems programmer and design engirieer .with extensive 
experience programming, the TRS-80 microcomputer. Research assistants 
Becky Gordon, Tom Dominguez^^and Leslie Roberts worked with the 
^subjects and operated the computer programs for screening and the 
experiment itself. The experimental sessions were conducted at the 
Rehabilitation Engineering Center at Children's Hospital at Stanford 
or at local schools depending on the ease -of logistics for the 
subjects. The transportability of the TRS-80 computer *made this 
flexibility possible. 



ABSTRACT 

Effective communication for the physically disabled individual 
relief on control and display system design. ' The systems currently 
avai'lable to individuals restricted tb using single switch interfaces 
b/'^heir involuntary (athetoid) movements have limited use and are 
inadequate for communication. Frustration followed by rejection of 
these aids is widespread. 

An observed difficulty is the inability of a user to reliably 
activate a time-dependent control and display system. It is possible 
thac this group of physi(^ally disabled individuals could control 
^devices more adequately with an appropriatly designed type of control 
and display system. 

A controlled research study was conducted to Investigate a / 
modification of a row/column scanning system in order to increase the 
speed and accuracy with which communication aids can be accessed with 
one or two switches. A selection algorithm was developed and 
programmed in Basic to automatically select individuals with the 
characteristic difficulty in controlling time dependent control' and . 
^display systems. Four systems were compared: 1) Row/Column Directed 
Scan (2 switches), 2) Row/Column Auto Scan (1 switch), 3) Row Auto 
Scan (1 switch), and 4) Column Auto Scan (l switch). For this sample 
•population, there were no significant 4ifferences among systems for 
scan time to select the correct target. The Row/Column Auto Scan 
system resulted in signif icaaGly more errors than any of the other . 
three systems. Thus, the most Vi4ely prescribed system for severely 
physically disabled individuals turns out for this group with 
involuntary movement to have ^ higher error rate and no faster 
communication rate than th^ee other syst^ems that? have been considered 
inappropriate for this group. We can now apply the information 
gathere4 during this study to assessment procedures and begin to 
develop theories on control of assistive devices for individuals with 
involuntary movements. ' * , 



BACKGROUND 

/■ 

This project addressed a question that was raised during the 
development of a versatile, portable, speech prosthesis (VPSP) for the 
severely disabled (Le^lanc, Simpson, Williams, and Llngel, 1980), 
which Is a microprocessor' based, wheelchair-portable, speech 
prosthesis that <^an be controlled to speak, and/or store any speech 
message desired by the user. Different control and display systems 
were provided for users with varying degrees of motor control: 1) 1- 
swltch, row/column scanning; 2) Joystick +' selection switch or 5-slot 
controller and a user-driven cursor; 3) keyboard, direct selection. 
These control and display systems were chostBn because t^ey are typical 
of a wUle range of commercially available communication and 
environmental control devices. 

While communication speeds of 30 words per minute w^re obtained 
using the VPSP keyboard, experienced users could 'do no .better than A 
WPM using the row-column scanning, system*, and users with cerebral 
palsy were considerably slower. Wethered (1976) found that 
Individuals with cerebral palsy were slovier using single switches than 
individuals with muscular dystroph^J? or multiple sclerosis, supporting 
what was found with the V^SP. . 

Commercially available communication and ^environmental control 
aids all use variations of three basic approaches to control and^ 
display systems which enable the user Jto Indicate his or her intended 
elements or symbols^ of communication. These ^re scarftiing, encoding 
and direct selection. The approach that an individual uses is 
dependent upon that individual's physical and cognitive abilities. 
For an individual physically limited tp the use of one or two switches 
or^methods of indication, the approach used must involv.e scannings, 
although it may be combined v^ith encoding in some cases. Methods of 
indication include controlled hand movement, head movement, eye blink, 
electrooculogram (EOG), electromyogram (EMG), and electroencephalogram 
(EEG)^; 

Scanning is'^ * 

' "any technique (or aid) in which the selections are 
offered to the user by a' person or display, and where / 
the user selects the characters by responding to the 
person or display. Depending upon the aid, the user may 
respond by simply signaling when he sees the correct 
•choice presehtied, or by actively directing an indicator 
(e.g., light, arrow or cursor) toward th6 desired choice." 

(Vanderheiden and' Harris-Vanderheiden| 1976). 

Vanderheiden (in Vanderheiden and Grilley, 1976) ipdicated that 
scanning is extremely powerful because it can be used by individuals 
with minimal co"Wtl (e.g. able to consistently make only one or Hwo 
movements or signals). He also indicated that the power of the 
scanning technique is 'of feet by slow speed of communication. The 
speed is slow because much tiitie is spent passing over unwanted symbols 
before arriving at the desired symbol. ■ - ' 

There are several types of scanning techniques, which include 
linear, row-column,* and pseudo-scanning or step-scanning. The 
simplest technique, "linear-scan", presents the elements one at a time. 



The desired choice is selected by responding pr,, signaling when an 
Indicator Is directed toward It. This approach can be very slow. The 
more choices of elements that arc to be presented, the slower the 
speed of communication bocomco. 

^Linear scanning can be be accelerated by utilizing, a two-speed 
scan. . One switch controls the Bpeed of the scan and the other stops 
the ^scan. * The speed control switch Increases the scanning rate. When 
this switch Is released, thfe scanning returns to the slower rate. 
Vanderhelden Indicated that "for some children, particularly athetold 
children, this 'may not' be within their d&pabllltles and another 
approach may be more desirable." (V^anderhelden, 1976) 

In n)w-column scanning, choice^ are arranged In a matrix-like 
display (refer to figure 1). Elements of the matrix are Indicated 
sequentially by moving a cursor or by Illuminating a light next, to 
them. Row-column scanning enables the user of the all to select firsts 
the row that the desired element Is In and then to select the column 
using a single switch. 

Pseudo-scanning or the "step-scan", (Vanderhelden, 1976) Is a 
technique In which the user actuates a switch to move the Indlcatot / 
from one position to the next. Vanderhelden pointed out that this Is 
not a true scanning technique becau9e the aid does not actively 
present choices and wait for a response but that the user actually 
moves' the indicator. L6gi-ally, this is a "directed" scan, in that 
the user directs the movement of the indicator. 

During the user evaluation phase of our VPSP project, it was 
observed that those individuals with athetold cerebral palsy who had 
much involuntary movement could;not reliably activate the switch yhen 
the moving curpor arrived at the desired item. This problem 
manifested itself regardless of the scanning speed selected by the 
user, with the slowest available speed being one cursor movement per 6 
sec. When the VPSP was at their disposal for a full week, at home, 
school, and/or hospital, no measurable improvement in accuracy was 
recorded. Speech therapists involved in th^ project reported similar 
problems with devices that use tfie row/column scanning system* Yet, 
devices with this control system continue, to be pTrescribed for non- 
vocal individuals with involuntary movements. And, apparently taking 
their cue from existing devices, designers of new, microprossessor 
based systems for the severely physically handic^^B^ are using the 
row/column scanning system, for example, Bruey, 1980. 

It was also noted during the evaluation of the VPSP that all of 
the users who had the previously described problems with row/column 
scanning independently developed the same alternative method of 
controlling the device. They would elect to operate the VPSP in 
'Verify On" mode. This m^ans that the -cursor, upon having the item 
next to it "selected" by the user, woul'd flash momentarily while the * 
system was in a "wait". mode. During this .time Interval, the user 
could hit the "selection switch" again to cancel the selection, in . 
case it had been unintended. Then the cursor would move to the next 
item .in the row or column being scanned., If, however, the selection 
made was desired, the user simply waited for the cursor to stop . 



f lashing, n the system would act on the^eelcctn^ Itom; (The , 
nlt;crnative to Verify On was 'Verify .Off*); in this mode, the system 
acted on the user's selection as soon as the seljection switch ^as 
pressed, with no provision for cf^n(l^l.) The users in /<rtXr study, 
however, utJed the logic of the *Verify On" mode to step the cursor to 
the item they wanted rather than letting the system scan the cursor 
there automatically. They pressed their selection i^witch twice tx>r 
each item they did not want, t^ drive the cursor on to the next item. 
When they got the cursor to the item they wanted, they tried (not 
always successfully) to break their motor pattern of two successive 
swit»ch presses and instead to hit the switch Just once and then pull 
back from the switch to let thQ flashing cursor time out and thus 
cause the system to act on their selection. If these users are 
representative of the severely athetoid group, ^then an alternative 
type of control and display system might work more effectively for the 
whole group. "^-^ 



Figure 1. Scanning Schemes 
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b. horizontal linear 



c. vertical linear 



ERIC 



APPROACH 



Our purpoBc? was to Htudy the ability of perttonn with athetold 
corobral palsy to control a two-switch, uoor-driven curwor, row/column 
scannlnR ayotom* Tho underlying asDuniptlonn mado wore I) That bi- 
switch" uuera will actually be able to control some other, second 
switch. (This assumption is supported by the observation that all 
users of the 1-swltch VPSP were able to deal with two switches, the 
on/off switch and the selection switch); and 2) That those with severe 
athetosis who arc 1-swltch users would, as a group, be able to perform 
the regular, successive sw Itch Met Ivatlon .which was sucoessfully used 
by the VPSP operators. ^ 

An Interface, consisting of two switches utilized this behavior. 
One. switch, the "scanning switch", moved the cursor when it was 
actuated (speed of cursor movement was adjustable for each user). 
Note that the scanning switch functioned in two modes. When it was 
he id down, it caused the cursor to scan; but if given a single 
actuation and released, the cursor advanced.pne position only. This' 
switch was used to position the cursor on ^the desired item - one of 
the rows or an item within a row. The second switch was the 
"selection switch", which "selects" the item next to the cursor. If 
the selected item is a row to be scanned, then the act of selecting it 
causes the cursor to move across the row when the user next -activates 
the scanning switch. If the selected item is an item in one of the 
row9, then the act of selecting it transfers the selected item to a 
holding space (where the user would construct sentences for viewing, 
pointing or speaking in a Complete prosthesis system.) When neither 
switch is pressed, the system does nothing, allowing the user to rest, 
thinks or whatever. Note that this system is similar to the step 
scanning system discussed above. / 

Our principle goal was to determine whWer the alternative .<iser- 
drlven cursor, 2-swltch system is any more effective for the target 
population than is the currently used row/column scanning system. 
Simpler scanning systems were also studied so as to isolate the 
effect, if any, of the two-dimensional -feature of row/column scanning 
syst/ems apart from their scanning feature. The experiment was 
designed to also obtain data on learning trends for t|ie four types of 
systems and to shed some light on the underlying cause of the observed 
difficulty, i.e. whether it is the result of lack of experience with 
motor control in the dimensions of time and space or whether it 
results from inability to deal with two-dimensional displays (a 
posslblity suggested by Judy Montgomery in a talk to the Bay Area Non- 
Oral Communication* Group, June, 1980). We compared response time and 
accuracy performance for four types of systems (refer to Figure 1): 
1.* the traditional row/column scanning system, 2. the proposed user- 
driven cursor, 2-switch system, 3. a one-dimensional, linear 
(vertical column) scan system, A. a one-dimensional, linear 
(horizontal row) scan system. Data were collected over a sufficiently 
long period of time to observe learning curves on each system, as 
well- 
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Cloarly thero Are other poHfilblu ayiftomn that could havit nt^rviMl 
i\t\ experimental controln for tlu! proponed nyntera. Financial llmltfi» 
however, rentrlcted the number of experimental Varlablea and thr 
number of leveln for each of thone varlnblea thnt could be properly 
otudlcd* We believed It was Important to Include fiyatems that are 
reprefientat Ive of thone already In uae and commercially nvallable an^' 
which differ by a minimum number of featuren from the proponed nyote , 
and from the traditional row/column Bcannlng nyntem. Roth of the 
simpler Hcannlng eyntemn, vertical and horizontal, meet thent* 
crltcriiu See Table 1 for a feature analyuifl of the four syotemo to 
be compared. 



FEATURK 

SCANNING VERTICAL HORIZONTAL 

SYSTEM 
ROW/COL 

SCANNING AUTO YES YES 



2-SWITCH 

DIRECTED DIRECTED YES YES 

ROW ^ 

SCANNING AUTO NO YES 

COLUMN 

SCANNING AUTO YES NO 



TABLE 1: FEATURES OF FOUR. CONTROL AND DISPLAY SYSTEMS 
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A liiv^v KToup of Indl vhliKi I H with Movcn* ^thrtold (u^rcbral \v\lt\y 
who nvv non-vi)cal or havv fU'voro dynarthrifi Iwive hcvn provided othi-r 
typcB of iiuulfJtlvo di'Vlcof; by tlu* Kohabll Itntlon KnKlntior In^ CiMUrr 
(RKC) of Chlldreu'fi Uonpltiil at Stanford (aiyj>), Krora thin Kroiip nnd 
from IndlvldunlM roforrod by cooperatlnR ncboolfl wc aeltjctcd 
voltintoeni for thlfi etudy and from the larger group cbouo a Rroup of 
Mix for intenulvc otudy who had tho ^llowtnR character 1b t lea In 
common: 1. Severe athetoala. 2. Cognitive ability to recognize the 
lettern uaed and to follow the dlrectionn given. 3. Domonotrated by 
their performance on the following Bcfeenlng tcut that they have 
/difficulty aeli'ctlng a target ualng the row/column acannlng Byatem and 
that they have a high probability of c»rroneouoly selecting the Item 
JuHt before or Just after the target, I.e. display the behavior 
pattern observed for the VPS!' evaluation uaera. 

Screening teat 

The purpotie of the acrccning teat waa to aelect only those 
l/idlvlduals who are neither extremely accurate nor random In their 
operation of a row/column scanning display and control system. 
Included In the study are only those individuals who arc like the VPSP 
users that we observed erroneously selecting the Item just before or 
just after the one they wantfed. We refer to the volunteers who took 
the screening test as "candidates". Those who were selected by the 
screening test (and the other three criteria above); became the 
subjects for the extended study. 

The screening test consisted of from 3 to 6 trials, with the 
number of trials determined by the candidate's performance as the test 
progressed. The task for each trial was to use the "select" switch to 
select a target Item, a letter of the alphabet, presented by the 
computer. Only the first response on each trial was recorded for test 
.purposes. Each wrong response was recorded In terms of its distance 
In the scan In front of or after the target. So, -1 means the item' in 
the scan just b^TFore the target was erroneously selected; 0 means the 
target was accurately selected; +3 means the item 3 items after 'the 
target was select.fed. The probability of someone whose switch- 
actuation behavior is completely random selecting any one letter from 

array of 12 letters is 0.0833. Thus, the chance of three such 
selections belrfg made in three trials by such an individual is 
0.00057. This was our criterion for accurate performance; if -an 
individual selected th«^ target letter three times, he was judged not 
impaired enough to qualify for this study. If he made three +1 or -1 
errors (p - 0.0046), then the candidate was judged to have the 
requisite athetoid behavior and comprehension of the task to 
participate in the study. If, after three trials, neither 3 target 
selections nor 3 +1 or -1 errors had occurred, the testing was 
continued up to a maximum of 6 trials. The probability of selecting 
by chance the letters either side of 'the target 3 or more times out of 
six trials is 0.0044. Thus by extending the number of trials to 6, we 
were unlikely to accidentally include anyone whose target selection 




'behavior was random. If at any point during the^ screening test the 
candidate accumulated 3 of the +1 or -1 type errors, that individual 
qualified as one of the subjects for the study and this concluded the 
screening test. If the screening extended to 6 trials, then a 
candidate had to score 5 correct out of 6 in order to, be judged as too 
accurate to benefit from our alternative system. This 17% error rate 
criterion is baffed on our calculations of lost time due to erroneous 
sections made with a 5,x 5 sisse row/column scanning system, assuming a 
cursor scan rate of 1 item per 0.5 seconds. With any error rate ' 
greater than 17%, the time lost due to errors becomes increasingly 
greater than the error Tate. For example, with an error rate of 50%, 
the time lost is 87% of the time taken to spell a 5- letter word making 
an increase of 87% in the time per word communicated. If at the end 
of 6 trials, 3 or more of the responses were of the -1, 0, or +1 type, 
with the condition that. 2 of/ the 3 be of the -1 pr +1 type (p - 
0.0033), the candidate was* included as a subject in the study. If any 
other' pattern of responses /resulted, the candidate was not selected, 
since a variety of other problems, such as inability to find the 
target visually, could be present. (Such problems are also important 
but are simply beyond the scope of this proposal.) 



Subjects * 

During the screening, individuals demonstrating all the above 
different types of behavior were discovered. Many children diagnosed 
as athetoid CP had learned to use reflexive movements to their 
advantage and had thus adapted so that they could effectively use a 
switch. Some of the candidates had difficulty understanding the task. 
Fo.r some, the concept of a, scanning system was new and/or they had no 
previous exposure to electronic aids. Also, we believ^ that some of 
the teachers in^ the schools who recommended certain candidates to us 
did not actually understand or had riot previously identified the 
particular type of problem we were studying; thus not all the children 
. screened were really good candidates and, conversely, we may have 
missed some children who db-indeed have difficulty making reliable 
time-idependent movements.- Of the 39vcandidate subjects who 
participated in the. screening process, 18 were too accurate, 15 
displayed neither the too accurate nor the high rate of +1 and -1 type 
of errors. The remaining 6' candidates were selected by the algorithm 
as having the behavior of interest to this study. Table 2 shows the 
characteristics of the six subjects in terms of age, diagnosis, and 
current communication device, if any. 

Equipment 

A TRS-80 Microcomputer was purchased for this project, and 
programmed toViandle all stimulus presentation, response timing and 
accuracy measures, and some of the data reduction. This equipment 
saved significant experimenter time and ensured accurate data 
recording. The TRS-80 is widely used in educational applications at 
this time, thus increasing the potential number of users for programs 
developed for it. Suitable single ahd^ double switches were 
identified by the Children's Hospital at Stanford Rehabilitation 
Engineering Center to provide each child with a switch he or she 
could activate as reliably and accurately as possible, by whatever 



method was most effective. Actuation means included head motion, 
head stick, hands, feet, or groi3s limb movement. The computer was 
programmed to present an easily-taught and understood letter 
selection task on the CRT screen. Twelve letters of the alphabet 
were chosen for their visual disimllarity, as determined from 
grapheme confusion matlx data in the plibllshed literature (Kinney, 
Marsetta, and Showman, 1966). These letters were displayed on the 
screen in a row/column matrix, a single row, or single, column, as 
appropriate for the experimental condition (Figure 2). The computer 
was programmed to drive the cursor in a row-column scan under 
computer control, a row- column scan under subject control, and two 
types of linear s an (vertical and horizontal) under computer 
control. It was also programmed to accept subject switch closures, 
properly de-bounce the signal, and make appropriate changes to the 
screen display as determined by the switch selections made by the 
subjects. Thermograms to accomplish much of this made use of 
algorithms Implemented in software developed for the Versatile 
Portable Speech Prosthesis. Implementation of these algorithms to 
provide a test and evaluation package on a widely-available computer 
(Radio Shack TRS-80) is a slgr^lf leant benefit of this project, and it 
is anticipated that • at^ the' conclusion o£ this project, this software 
will be made available for diagnosis of children and evaluation of 
switches and appropriate control/display systems for individual users 
and for computer assisted instruction applications. 

Experimental Design ^ 

Each of the six subjects used each of the' four systems, one at a 
time. The order of systems used was balanced across subjects to 
control for transfer effects. A given subject used a system 
approximately every other day, except weekends, for approximately 2 
hours per day. The first day consisted of familiarization with the 
system to reduce the effects of learning. E^ch subsequent day with 
that system included some ref amiliarizatlon time. Efach day contained 
3 runs of 12 trials each. Between runs, subjects rested and relaxed, 
as they wished. The task for each trial was to select a "target" 
letter (which was shown on a special area of the CRT) from the row- 
column (scanning or subject-driven) or linear array- displayed, on the 
CRT. Each of the twelve letters was presented an equal nupaber of 
times within each run, in random order. A subject used the same 
system for 3 days for a total of 9 runs with that system. The 
procedure was then repeated with the next system until, that subject 
had used all four' systems. All runs with a given system were in 
succession to provide for subject familiarization^ with a given system 
and so that learning could be detected. 

Data collected consisted of two types of response time,"*^ 
measured from onset of the target^ stimulus display on the CRT to time 
of accurate response selection. Elapsed time was defined as iffie - 
total elapsed time from the initial presentation of the target to 
the subject's correct selection of the target or sixth miss 
(erroneous selection for a given target). Included in the elapsed 
time, in cases where the subject had. one or more misses before 
getting the correct selection, was time between "tries" when the 
subject might have sOme physical reason to not be ready to start the 
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a. Row column scanning system, row Indicated by' cursors. 




Of 



b/ User driven cursor, 2-switch system. Letter "a" 
indicated by cursors. y 



1 / 

Figure^. Photographs of displays on the TRS-80 Mode III 
Monitor for each of the four types of systems. 
The "target" letter is displayed in the box. \ 
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next try for that 'target. Because this between- try tim^ was - . 
dependent on «^|.ndividual subjects' and* even on aifferent experimenters 
behavior, '^^fi'vcleaner response time was also measured, called scan 
time. Scan'^^time was defined as the. cumulative time that the cursor 
was actually actively -scanning in the case of the aiito scan systems 
or the time that the cursor was. actively controllable by the subject 
in the case of the directed scan system; The data analysis:, was 
performed on the cleaner scan time measure. All responses^ (both 
erroneous and correct) were recorded. Aft<er 6 erroneous 'responses 
for any single tr:^, however, the computer terminated the trial 
automatically. We assumed that further attempts by the subject to 
select the correct\^> response would only lead to fatigue and 
frustration. - / - ' 



Experimental Stimuli 



) 



Single letters wei^ chosen for this task even though a 
communication device might be used to communicate whol^e words and 
sentences. In this ^tud;j we were Interested in learning whether the 
experimental system permitted faster and* more accurate selection by 
the user, rather th;an obtaining a words per minute communication 
speed. A .subsequent study could address communication speed for this 
interface. But there was little point in measuring communication — 
speed unless it "was first determined if the 2-swltch, directed scan 
system could be operated by the target population with any more ^ 
accuracy and speed than^ the row/tfolumn scanning system. 

Research assistants worked closely with the subjects. " They made 
sure they were physically comfortable and not Intlmldatfed by the 
experimental setting. They tried to encouragef the subjects if 
necessary, without influencing their performance< differentially on 
the four types of experimental systems. They operated^the computer 
and input such identifying data as necessary, and had complete ' 
control 'over the experimental situation wh4-lQ.lt was running. Since 
knowledge on their part of the hypotheses of the study could have 
lead to their unconscious Influence pa the subject's behavior and 
performance scores, they were told only that we wished to evaluate 
the subject's performance on the four types- of control and display 
configurations over time. This was Intended .to Insure that each 
scanning system was treated equally in the testing. 
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RESULTS AND DATA ANALYSIS 



/Analy&ls of variance (AOV) tests (Winer, 1962; Wollach, 1983), . 
were used to determine which S)f the experimental variables produced 
statistically significant effects on the scan time and error data. , 
The, two variables of interest, In addition to subjects, were the' four 
types of conttol and display system, and the nine experimental runs 
that were made by each subject with each of the. four systems. The 
0.05 level was selected as the cutoff point for statistical 
significance. . • ^ 

Two problems made the results of the experiment more difficult 
,to analyze. First, due to procedural problems, some runs were not 
done with the system which had been chosen for that run. These are 
indicated by the dotted-line gaps in the curves for individual 
subjects (given in Appendix 1). Note that the data points before the 
gap are at about the same level as after, showing that the 
interpolated wrong runs ^id not affect the time data. Thus, the 
problem with order was Ignored in all data analyses. The second 
problem was tliat not all subjects were able to use the same taachln^-^ 
paced scan rate throughout the experiment. Rather than postpone .:i / 
run until the subject was able to oper ate d ie switch at a pr'^vioueiy- 
run rate, runs were completed at a rate which the subject could; use*' 
Thus, subjects 2,3, and 6 used two different iVates. Their time's^ to 
successfully select the target letter are affected on those runs where 
they used the different rate. See Table 3. for the scan rates used for 
each subject and the actual order in which different 'systems were run. 

TABLE 3. SCAN RATES USED BY INDIVIDUAL SUBJECTS FOR NINE RUNS FOR EACH 
OF FOUR SYSTEMS, IN ORDER OF SYSTEMS USED 



SUBJECT 



SYSTEM 



NUMBER 


FIRST 




SECOND 


THIRD 






FOURTH 




1 


C/1.0 




. D/1.0 


B/L,'>0 






A/1.0 




2 


D/2.0 




A/1.0 


B/2.0 






C/2-.0 3 


runs 


3 














C/1.0 6 


runs 


A/1.0 




B/1.0 


C/0.5 






C/0.5 




4 


B/1.0 


6 


runs ,A/1 .0 


B/1.0 


3 


runs 


D/1.0 6 


runs 




C/1.0 


3 


runs 


D/1.0 


6 


runs 


C/1.0 6 


runs 


5 


D/1.0 




C/1.0 3 tuns 
B/1.0 6 runs- 


B/l'.O 
C/1.0 


3 
6 


runs 
runs 


A/1.0 




6 


C/1.0 




D/1.0 


A/1.0 






B/1.0 





A»RDW/COLUMN DIRECTED 
C-ROW AUTO 



B-ROW /COLUMN AUTO 
D»COIiUMN AUTO 



From the point of view of pure* science, ' this is a problem with ^_ 
, the data because it confounds the variables of scan time and system.^' 
However, from a practical point of view, one could argue that on tha^ 
day, that particular person could not have operated at the faster rate 
(or would have made many more errors in so doing) so the longer times 
are realistic reflections of hife capability with that, particular 
system. And, we certainly did want to assess the variablility in scan 
time performance for individual subjects and our sample as a whole 
over time. 
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Scan Time Data Analysis 

Table 4 shows the ovetall means and standard ^deviations of scan 
time and adjusted scan time (see below for descrtpticm of the 
adjustment) for^each of the four systems. / 

TABLE 4. MEAN SCAN TIME. AND MEAN ADJUSTED SCAN TIME IN SECONDS FOR 
FOUR SYSTEMS ACROSS 9 .RUNS PER SYSTEM AND 6 SUBJECTS. 



/ • 


SCAN- TIME 


ADJUSTED 


SCAN TIME 


^EAN 


SD 


MEAN 


SD 


ROW/COL DIRECTED 


19.4 


6.9 


28.9 


14.0 


ROW /COL AUTO 


15.1 


6.5 


,30.6 


19.2 


ROW AUTO 


i5.a 


5.0 


25.3 


14.8 


COLUMN AUTO 


15.8 


8.1 


24.5 


12.7 



AOV's were conducted with the variable rate subjects included, . 
Table 5, and ^with them )^ excluded. Table 6. Table 5 shows the. result'a 
of a 2-Way AOV of the 6f f etts on scan^ time for systems by nins for 
all six subjects. • '\ .%,^\ 



TABLE 5. ANALYSIS OF VARIANCE FOR 


SCAN TIMES 


. '3 




SOURCE 


SS 


DF 


MS 


F 


P 


Subjects 


-5947.7 


' 5 


1189.5 


26.82 


<0.0001 


System 


693.2 


3 


231.1 


1.72 


0.2 


Subj. . X Sys 


2005.0 


15 


133.7 




0.063 


Runs 


783.2 


8 


97.9 


2.06 


Runs X Ss 


1902.9 


40 


47 .6 




0.O24 


Sys X Runs 


1356.6 


^24 


\ 56.5 


1.76 


Sys X R X Ss 


3852.6 


120 


' 32.1 






Total 


16541.3 


?15 









There was no significant effect for system (p-0-2), but runs 
approached significance (p*0.063). The interaction between systems 
and runs was,, significant (p-0.024) however, as was subjects (p<.0001). 
Table 6 shows the same analysisUone fo^ only the three subjects who 
used a consistent scan rate acrok»v>,all systems and runs. 

TABLE 6. ANALYSIS OF VA?,IANCE FOR THREE SUBJECTS' SCAN TIMES 



SOURCE 


SS 


DF 


MS 


F 


P 


Subjects 


2^75.3 


2 


1237.5 


37.68 


<0.0001 


System 


399.2 


3 


133.1 


1.27 


ns 


Ss X Sys 


629.6 


6 


104.9 


.26 




Runs 


104.6 


8 


13.1 


ns 


Runs X Ss 


802.9 


1-6 


50.2 


.97 




Runs X Sys 


-c- 421.6 


24 


17.6 


ns 


R X Sys X Ss 


866.8 


48 


18.0 , 






Total 


5700.2 


107 ' 
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As expected, reducing the number of subjects In the analysis to 
just three lowers the F ratios, but the strongest effect (subjects) 
Is still significant; the significant runs by systems Interaction, 
significant with 6 subjects, reduces to Insignificance. The nearly 
significant (p-0.063) effect of runs In the 6-subject analysis also 
disappears with the reduced number of subjects. Figure 2, which shows 
mean scan times for the four systems across the nine runs graphically 
dembiistrates the AOV results. As can'^be seen no one system Is 
consistently better or worse than the others. 

Extensive massaging of the data did not seem called for, although 
log transforms or normalizing the scan time data might tease a 
significant systems,, effect out of the sdan time data to match the ^ 
error data. .However, one transformation did seem to be worthwhile. 
On those trials where errors were made, an actual communication device 
would require that the user correct the error In some fashion. If It 
takes as long to correct an error as t^ make a correct selection, 
(which would be typical), then that time should be Included In ,the 
measure of effectiveness of the, system. 

The scan times were adjusted by the number of errors made on that 
trial, by the following formula: 

MASST « SST (12 + ^ M^) 

1-1 



H 



Where: 



H « number of hits 
SST » selection scanning time 
M - number of misses 

MASST ^ mean adjusted selection scanning time 

The data 'were analyzed as before, with the results shown In Table 7. 

TABLE ?• ANALYSIS OF VARIANCE FOR ADJUSTED SCAN TIME DATA 

SOURCE 

Subjects 
Systems 
Ss X Sys 
Runs 

Runs X Ss 
Runs X Sys 
R X Sys X Ss 
Total 

As before, subjects Is significant, runs approaches significance 
(p-0.079), and the runs by system Interaction shows a trend (p-0.132). 
Figure 3 again graphically Illustrates the lack of any consistent 
advantage of one system over another In scan time. ^ 



ss 


DF 


MS 


F 


P 


32680.8 


5 


6536.2 


15.6 


<0.0001 


1378.1 


3 


459.4 


.69 


ns 


9935.0 


15 


662.3 




0.079 


6975.1 


8 


872 .0 


1.95 


17889.3 


40 


447 .2 




0.132 


12521.9 


24 


521 .7 


1.38 


45426 


120 


378.6 






126806.2 


215 
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[ure 4. Mean^ scanning time to select correct^ target , adjusted for errdr correction 
ir systems, by run. N= 6 subjects. . . 



KEY V 

•Row/Col Directed' Scan 



^ w Row/Col Auto Scan 

Row Auto Scan 

. ^ Col Auto Scan 
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Error Data and Analysis . 

Table, 8 shows the total number of misses made by all subjects fof 
each of the four systems. \ 

TABLE 8. TOTAL ^^JMBER OF MISSES MADE BY SIX SUBJECTS FOR EACH OF FOUR 
SYSTEMS. 



-V SYSTEM 

ROW /COL DIRECT^ ROW/COL AUTO ROW AUTO COLUMN AUTO 

TOTAL - 

MISSES 249 • 451 289 281 



The error analysis, Table 9, Is a simple l--way AOV with system as 
the variable under test, and a significant (p»0.0005) effect due to 
system is shown. 



TABLfi 9. 


ANALYSIS 


OF VARIANCE 


TABLE FOR 


ERROR DATA 


SOURCE 


SS 


DF 


MS 


F 


System 


49.3 


3 


16.4 


6.18 


Subjects 


ji9.9 


5 


64.0 


24.10 


Sys X Ss 


107.5 


15 


7.2 


2.70' 


Within 


504.9 


190 


2.6 


c 


Total 


981.6 


213 







<0,001 
<0.001 
<0.005 



Duncan's Multiple Range Test (Bruning & Klntz, 1968) shows that 
the only system significantly different from any of the others Is 
row-column auto scan, significantly worse than any of the others. The 
data are not stable enough to support more detailed analysis, however, 
as Table 10 shows; this AOV attempts to analyze effects due to 
subjects, runs, and systems. The data analyzed In Table 10 are 
conservative In that- they understate the number of misses that would 
probably have been made In a real world communication situation 
because subjects never accur-ulated more than 6 misses for a given 
trial or attempt at selecting a particular target letter. This was 
done to reduce frustration for those cases when a subject after 
repeated tries was unable to select the target letter. Thus, for the 
data analyzed In Table 10,^ six recorded misses for a target that was 
never successfully selected could In the real world have been laore 
than six misses until the target was selected, If It ever was. ' 
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TABLE 10. ANALYSIS OF VARIANCE FOR ERROR, BY RUNS. 



SOURCE 


ss ' 


TM7 


no 


w 

f 


r 


Subjects 


O O T O f\ 

2o7o .0 


«^ 
J 


J / J • o 


22.26 


<0.00l 


Systems 


443 .9 


3 


9 Aft n 




0.14 


Ss X Sys 


Qua c 
700 •D 


1 ^ 


64 4 




0.82 


Runs 


331 .4 


o 
o 


A'^ Q 


1 .93 


Ss X Runs 






22 8 






Sys X R^ns 


588.0 


24 


24.5 


1.11 


ns 


Ss X Sys X Runs 


2646.7 


' 120 


22.1 






Total 


8786.1 


215 









The results of the ADV show that tile effect of runs approaches 
significance (p*.082, Table 10) and systems shows a trend (p-.14). As 
before, ^subjects is a significant effect. 

Table 11 shows the total number o$/successful target selections 
and failures in target selection for each system. For a given target, 
the selection was scored as a success as long as the subject managed 
to select the target correctly within six tries. If he or she missed 
six times on the same target, then that trial was scored as a failure 
and a new target was presented. 

TABLE 11. NUMBER OF FAILURES AND OF SUCCESSFUL TARGET SELECTIONS FOR 
EACH OF FOUR SYSTEMS. N»6 SUBJECTS, EACH PERFORMING 108 TARGET TRIALS 
PER SYSTEM. 

ROW /COL ROW /COL ROW - COLUMN 
DIRECT AUTO AUTO AUTO 

FAILURES 2 • 13 2 7 



SUCCESSES 646 635 646 629* 



A Chi-Square analysis (Bruning and Kintz, 1968) showed a 
significant effect for system (x^ - 13.77, df - 3, p - .0032)as can be seen 
from the table above, the Row/Column Auto Scan system's failure rate 
was nearly double thait of the next worse system— Column Auto Scan— 
and was over six times the rate of either the Row/Column Direct or 
the Row Auto Scan system. 

Appendix 1 contains figures showing individual subjects' mean 
scan times and mean adjusted scan time by runs for each system, and 
tables listing number of misses and number of failures to select the 
target, by run, for each system. 



♦Procedural problems due to fatigue of one subject reduced the total 
number of trials for the Column Auto Scan System to 636 instead of the 
648 trials achieved for the other three systems 
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DISCUSSION 



Other control techniques using single switches and variations 
of the techniques used in this study have recently been reported. 
Two are discussed here. 

A new technique, "critically damped scanning", might increase 
the usefulness of linear scanning using a single switch. 
(Vanderheiden, 1981). The scanning rate is initially A to 5 
times the rate at which the user can reliably respond. It is . 
assumed that when the user activates the switch to make a 
selection, the indicator will have moved several items beyond the 
user's intended selection before the user can halt the scan. 
When the user activates the switch again, the indicator will 
begin to scan JrH'-^tlfle reverse direction at a much slower rate. 
The user >iirt activate the switch when tlie Indicator returns to 
the desired selection. 

Critically damped scanning may.also prove useful to 
individuals with uncontrollable movements. As found in this 
study, the subjects were more accurate using linear scanning than 
they were using row/column scanning. Critically damped scanning 
might enable this population to access a larger number of items 
using the more reliable linear scanning system. However, our 
data suggest that this population will still have difficulty with 
a relatively high error rate, due to under and overshoots when 
the cursor is moving backward toward their intended selection. 

In a pamphlet, Zygo Industries, Inc. (1983) have listed some 
guidelines for the use of row/column scanning devices. These 
include: ^ 

1) The entire matrix must always .be in view of 
the user; 

2) The entire row should be indicated or 
illuminated during the row scanning phase; 

3) A time interval is needed for confirmation 
or correction after an item is selected 

(i.e. the item selection can be negated if 
the operating control is activated during 
this period; and 

4) The user should be ttained to fixate on the 
desired selection, not on the lights as 
they scan, waiting for the desired selection 
to be indicated or illuminated. 

Zygo Industries Inc., (1983) reports that users with severe 
athetoid cerebral palsy showed possible scanning speeds faster 
than 0.25 sec/step. Although scan speeds are high, so was false 
selection/correction activity. Most users had difficulty making 
.desired cHbices in the first rows or columns after the- switch was 
activated. It was found that when the scan rate is decreased 
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after a -switch activation and gradually increased to the fast 
rate, the accuracy Improved as well as the average scan rate. 

In our study, the errors were evenly distributed throughout 
the row- column scanning <^isplay. We did not see any more errors 
made in the first row or firs't column than ^ny of the other rows 
and columns. The scanning strategies, suggested by Zygo would be 
particularly effective if they do decrease the erro.rs made in the 
first rows and columns, if the display is designed to take 
advantage of this by having the most frequently used items placed 
in these positions. 
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CONCLUSIONS 

^ . 

It will come as no surprise to anyone that the performance of 
the Individual subjects was a significant effect. Even subjects 
as rigorously selected as these varied immensely in their ability 
to use a single selection switch, and indeed varied in that 
ability from day to day, and in some cases from hour to hour. 
What this study has re-emphasized about this, however, is that 
good scientific research can be done on these people, and that 
one does not always have to resort to "clinical judgment" when 
dealing with a diverse populat:(,on like this. 

We tried to do enough practice runs with the system so that 
learning or practice was not a factor, and in this we seem to have 
succeeded fairly well. Inspection of the graphs in Appendix A 
will show a slight improvement from run 1 to run 9 no matter what 
the system was. Most of this gain occurred in the first three 
runs. The statistical analyses^ found the "runs" factor to be 
only marginally significant. In addition, the counterbalancing 
which was done I5n the design prevented learning from affecting 
any one system differentially; ^so we can conclude that learning 
or practice was probably not a factor in the differences between 
systems. 

An important implication of this is that the two hours 
practice was sufficient time for these subjects to have reached 
at least a learning plateau, if not an asymptote, in the use of 
these systems. While these were fairly simple control/display 
systems the subjects did have to adapt to new switches, a new 
situation, people they had not met before, a novel task, and a 
computer which they had not worked with-before. It is useful to 
know that two hours practice is sufficient to almost completely 
eliminate the effects of learning/practice with this subject 
population. This finding alone could save many hours of 
unnecessary "training" which children like these are subjected to 
when they are introduced to ^a new communication system. 

Examination of the overall mean time^ shows that the row- 
column auto-signif icantly so, of the systems tested, and even 
with the small number of subjects tested is statistically 
significantly worse in terms of number of errors made. The 
errors ciertainly lead to frustration and user dissatisfaction. 
If time to correct these errWs is allowed for in scanning time 
calculations, then the row-ctolumn auto-scanning is also ^Vst, 
though not significantly so, In terms of time to correctly select 
a letter. \ 

It should be noted here that these subjects were persons who 
would normally be prescriptively limited to a single-switcl^^input 
device, . since their motor control is so poor. It is a very 
important finding of this study that such people can in fact run 
a two-switch directed-scan system,, and experience less 
frustration due to fewer errors, and in addition can equal or 
better the output speed of the three aufco scan types of systems 
which are traditionally prescribed for them. 
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It seems that there is something about the arrangement of 
items to be selected into rows and columns which makes it more 
difficult for these people to deal with them. The number of 
items whiph can be put in a single row or column is limited by 
the practical considerations of display size and the length of 
time taken to scan from one end of the display to the other. 
This makes single row or single column displays limited in the 
number of items which can efficiently be placed in' them. A,- 
simple analysis of sc^n rate and the number of items that mus^, 
on the average be passed over in order to reach the target, wouJ.d 
seem to dictate putting items into rows and columns 'in. order to 
minimize scan time. Information theory supports the traditional 
appro/ch, telling us .that square matrices are more efficient than 
thostf^ having unequal numbers of rows versus ^columns. For users 
who fcan use a scanning system with high accuracy this might be 
so, ibut it is certainly not the case for the subjects included in 
thia study. We are fairly confident in recommending that people 
who \ meet the selection criteria outlined earlier in this report T 
should not be given a row-column autoscan system as a 
commuuication aid. Our data show that instead, a row autoscan 
systemtould work well for them if enough could be fit onto a 
single rl>w to meet their needs; if not, they should be trained to 
use twofewitches and fitted with a row-column directed scan 
system. ^We would predict that their error rate would be lowest 
with the row-column directed scan, and their speed would be close 
to that achieved with the single row. A major contribution of 
this project is, in fact, the ease with which persons in.^this 
group can be identified. Anyone with a R^dlp Shack Model' I or 
Model III computer can perform this diagnostic test merely by 
requesting a copy of the program from Children's Hospital and 
having the potential user run the subject selection program. A 
copy of . the . program listing, in Radio Shack Basic, is given in 
Appendix II of this report. 

Another major finding of this study is that individuals who 
would have been or had already been prescribed a single switch 
system were in fact able to operate two switches. We emphasize 
that we did not look for persons who could perhaps operate two 
switches; rather, the subjects who were selected by our screening 
program later demonstrated an ability to' use two switches. This 
represents a doubling of channel, capacity in the information 
theory sense. Certainly all attempts should be made for this 
group of users to find a second switch that they can reliably 
operate when not under the rigid time pressure of an automatic 
scanning system. ^ 
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IMPACT 

The results of this research will benefit a large group of 
physically disabled individuals, who are now unable to effeo-tively use 
commercially available communication aids and other assistive devices 
that use the row/column scanning' system. , At the very least, we have 
learned more about the capabilities of this group. At best, we will 
find that by applying the findings of this study, we can improve their 
contrvil of devices in the three areas of speed, accuracy, and adequacy 
(Barker and Cook, 1980) if th^se devices are only slightly modified. 
A byproduct of the project if the software. Since, the software is 
designed, for a microcomputer* that is in widespread use in schools, it 
can be made available to schools to provide access to computer 
assisted instruction and assessment to a group of children who are 
presently unable to control computers. Since control and display 
systems apply to the entire gamut of assistive devices, the impact of 
these very> specif ic findings will be greatly multipied. 
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APPENDIX 1 



TABLE 12. NUMBER OF MISSES/FAILURES BY RUN FOR EACH OF FOUR SYSTEMS 
FOR SIX SUBJECTS 



SUBJECT 
1 



SYSTEM 





ROW/COL DIRECT 


ROW /COL AUTO 


ROW AUTO 


COL AUl 


RUN 










1 


1/0 , * 


9/1 


20/0 


8/0 


9 




18/0, 


43/4 


3./Q 


3 


2/0 


15/0 




3/0 


4 


2/0 


33/1 


5/0 


20/1 


5 


6/0 


20/0 


10/0 


16/0' 


6 


1/0 


18/1 


4/0 


30/3 


7 


3/0 


9/0 


8/0. 


^ 7/0 


8 


3/0 ' 


^ 8/0 . 


8/0" 


3/0 


9 


0/0 


4/0 


11/0 


3/0^ 


1 


12/0 


16/1 


l/0_^ 


„ 2/0 




6/0 


15/0 * 


.0/0 


5/0 


3 


. 10/0 


10/0 


1/0 




4 


3/0 


6/0 


2/0 


1/0 


5 


13/0 


7/0 


4/0 


3/0 


6 


2/0 


6/0 


5/0 


3/0 


7 


2/0 


10/0 


2/0 


3/0 


ft 


1/0 


2/0 


9/0 


7/0 


9 


4/0 


8/0 


4/0 


6/0 


1 


10/0 ' ^ 


11/0 


5/0 


4/0 




5/0 


3/0 


0/0 


1/0 


•J 


' 3/0 


3/0 


2/0 


2/0 


A 


5/0 


3/0 


1/0 


, 0/0 


J 


5/0 


1/0 ^ 


0/0 


" 0/0 


6 ' 


^ 3/0 


0/0 


1/0 


, 4./0 


7 


2/0 


5/0 


1/0 ' 


a/0 




0/0 


0/0 


4/0 \ 


0/0 


Q 


2/0 


0/0 


1/0 ^ 


\ ' 1/0 


1 


I/O 


6/0 


1/0 , 


) 0/0 


2 


2/0 


1/0 


J/U J 


n /n 
u / u 


3 


0/0 


7/0 


2/0 


0/0 


4 


5/0 


0/0 


0/0 


1/0 


5 


3/0 


1/0. 


0/0 


, 0/0 
^ 1/0 


6 


4/0 


0/0 


0/0 


7 


2/0 


1/0 


0/0 


0/0 


8 


1/0 


2/0 . 


0/0 


0/0 


•9 


6/0 


2/0 


4 


0/0 



TABLE 12. CONTINUED 



SYSTEM 



SUBJECT 
5 



RU^ 
1 


ROW /COL DIRECT 


ROW /COL AUTO 


ROW AUTO 


■COL AUT 


18/0 


16/0 


3/0 


3/0 


2 


3/0 


11/1 


3/0 


2/0 


3 


0/0 


5/0 


,6/0 


7/0 


A 


4/0 


1/0 


0/0 


1/0 


5 


2/0 


6/0 


0/0 


0/6 


6 


4/0 


. 9/0 


1/0 


1/0 


7 


4/0 


12/1 


6/0 


4/0 


8 


0/0 


12/0 


3/0 


5/0. 


9 


1/0 


9/0 


9/0 


8/0 


1 


13/1 


25/2 


14/1 


10/0 


2- 


11/0 


12/0 


19/0 


17/1 


i 


13/0 


16/2 


12/0 


13/1 


4 


7/0 


5/0 , 


1/0 


11/0 


5 


8/0 


19/2 


14/1 


. 9/0 


6 


1/0 


17/1 


10/0 


9/0 


7 


9/0 


8/0 


8/0 


14/0 


8 


14/1 


2/0 


10/0 


22/1 


9 


7/0 


6/0" 


11/0 


11/0 



The number' on the left of the slash is the number of misses for 
that run and the number on the right is the number of failures, l*e. 
the number of times there were six misses for the same target. 

Hyphens » ( ) indicate the two runs for which data was not collected 

due to subject fatigue. - 
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SCAN RATES USKD FOR SIX SlIHJI'XrrS 



0 

V 

51 Row/Auto 1.0 Col/Auto 1.0 Row/Col Auto 1.0 

52 Col/Auto 2.0. Row/Col Direct 1.0 Row/Col Auto 2.0 

53 Row/Col Direct 1 .0 Row/Col Auto 1.0 Row/Auto 0.5 

54 Row/Col Auto 1.0 Row/Col Direct 1.0 Row/.Col Auto 1.0 
then Row/Auto 1.0 then Col/Auto 1.0 

55 Col/Auto 1.0 Row/Auto 1.0 Row/Col Auto 1.0 

56 Row/Auto 1.0 Col/Auto 1.0 Row/Col Direct 1.0 



\ 



EKLC 



:jur(^ fiM. Mo.ui r.cMnninq time to j-.i^UkM cor'rcct tarqct, u:;in(| the Kow/C 

si (Mil, l»y Mill foi i\ sub jccM .s . 



KEY 
Subject. 
Subject 2 
Subject 3 
Subject 4- 
Subject 5 
Subject 6 



0 




EKLC 



jure 
run 



5b. Mean scanning time to select correct target using tlie Row/Column Auto Scan 
for 6 subjects. 



KEY 

Subject 1 

Subject 2 

. Subj ect 3 — - — 

3 • ' , Subj ect 4 - - ^ - . 

Subject 5 • 

Subject € 



3 



0 




0 J 

1.2 3 4 5 6 7 8 

Run Number 
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igure 5c. Mean scanning time to select correct target using 
or 6 subjects. 



the Row Auto Scan systerr 



\key 

Subject 1 " ■■ 

Subject 2 — — — 

Subject 3 — 

80 . ' Subject 4 

Subject 5 * — ~ 

? Subject 6 M I I i 
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40 



20 




4 5 6 

Run Number 
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igure 5d. Mean scanning -time to select correct target using the Column Auto Scan si 
un for 6 subjects. ' ■' .^^^-""^ 
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Subject 2 ; . 

Subject 3 . - . 

Subject 4 . 

Subject 5. , 

Subject 6 (■ ( 1 » ( t 
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igure 6a. Mean ^scanning time to select correct target, adjusted for error correctic 
sing the Row/Column Directed Scan system, by run for 6 subjects. 
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Figure 6b. Msan 
using the Row/C 



100 



V 



Figure 6c. Mean 
using the Row Au 
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Appendix II 



These two Basic programs for the TRS 80 Model 1 and 3 are used to 
screen for the problems regarding accuracy that can be encountered 
when using a single switch. SCREEN/BAS is used with a single 
switch that parallels the space bar. PRDATA/BAS is used to 
display the data collected when using SCREfiN/BAS. 
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\ j 

SCREEN/BAS 

■ ■•A 

500 CLEAfV 1000: GDSUB 9000: REM . INITIALIZE POINTERS AND ARRAYS 
310 GOSIJB aaOO: rem get F-ILESPEC for data, VERIFY OK 
520 SUBJFIN=0: REM 0=MORE SUBJECTS, -1==N0 MORE 
530 IF SUBJFIN THEN GOTO 899 
540 REM BEGIN LOOP "RUN" 



550 GOSUB 8700: REM GET SUBJECT ID AND RESET COUNTERS 

560 GOSUB 6000: REM IN IT ENTRY ARRAY 

565 GOSUB 4900: REM RESET TARGET POOL 

570 BBJCHANGf:=0: REM 0=OLD SUBJECT, 1=NEW 

580 IF SB J CHANGE THEN GOTO 859 

590 REM BEGIN LOOP "TRIAL" 

592 GOSUB 5600: REM CLS AND DISPLAY ENTRY ARRAY 

595 TRIAL=TR"IAL+1 : GOSUB 6200: REM DISPLAY INFO 

600 GOSUB 8600: REM SELECT TARG LETTER, COMPUTE TAK'G POSN 

610 PA3SEB==0: REM FOR SCORLNG 

620 VLID=-l: REM TRIAL VALID 

630 GOSUB 8500: REM GET SCAN RATE 

•640 GOSUB 8400: REM DISPLAY TARGET, HOME CURSOR 

649 REM DRIVE CURSOR AND WAIT FOR INPUT 

650 KS="": GOSUB 3000 

660 IF N0T(K*=';AB0RT") then goto 700: REM IF "ABORT" DO: 

670 SKAWR=999: GOSUB 5000: REM CLEAR SCREEN 

680 PRINTe5*64+20, "TRIAL ABORTED. ": PRI NT: PRI NT: PRI NT 

690 GOTO 750: REM ' END OF "ABORT" DO BLOCK 

700 REM BEGIN ELSE ("CHAR SELECTED") BLOCK: 

710 GOSUB 3600: REM DISPLAY SELECTION. 

720 GOSUB 780O: REM CdMPUTfc; SCORE 

730 GOSUB 7600: REM DISPLAY SCORE? IGNORE OR COUNT TRIAL? 

740 GOTO 750: REM END OF "CHAR SELECTED" BLOCK 

750 IF NOT (SKAWR=999 OR IGNAWR) THEN GOTO 810 

760 REM BEGIN ("ABORT" GR IGNORE) BLOCK: 

770 VLID=0: REM INVALIDATE TRIAL 

780 REM TARGET LE flER BACK T.O POOL: 

790, TAKEN (XY)=0: CHO I CE=CHO I CE+l 

800 GOSUB 7500: REM ABORT SUBJECT? 

810 REM END OF ("ABORT" Ur< IGNORE) BLOCK 

820 GOSUB 7400: REM TEMPORARILY STORE DATA (THIS TRIAL) 

830 IF VLID THEN GOSUB 7100: REM SUBJECT COMPLETE? 

840 IF TRIAL-NMAX THEN GOSUB 4500: REM NOTIFY AND NEW SUBJ 

858 GOTO 580: -REM LOOP BACK TO "TRIAL" 

859 REM END OF LOOP "TRIAL" 

860 GOSUB 5700: REM DISPLAY SUBJECTS DATA SCREEN/PRINTER 
870 GOSUB 6800: REM SUBJECTS DATA TO DISK 

880 GOSUB 6700: REM ANY MORE SUBJECTS? 

898 GOTO 530: REM LOOP BACK TO "RUN" 



899 REM END OF LOOP "RUN" 

900 REM EXIT TO DOS: 

910 INPUT"EXIT TO DOS (Y/N)";K* 

920 K*=LEFT* (K*, 1 ) : IF (K*="Y" OR K*="y") THEN CMD"S" 

999 END: REM******************** 

1000 GOTO 5460: REM RECOVERY FROM* PRINTER HANG-UP 

1999 END: REM******************** 

2000 REM SUBROUTINE TO WRITE OR ERASE THE CURSOR 
2010 REM INPUT IS ROW, COL, RW$ AND LW* 

2020 REM ROW, COL ARE ROW AND COLUMN OF POSITION 

2or^0 REM RW* IS THE CURSOR (OR BLANK) TO WRITE AT RIGHT OF LOCATION 



ERIC 



ERIC 



2040 
2050 
2060 
20/0 
.••;99 

.:.'(E{00 

2820 
/B30 
»2B40 

?Rt!;o 

2B60 
.'3 70 
.•8B0 
•999 
^.OOcj 

.1 >Q9 

I Ot .) 
■• 1 1 ( .) 
*1 ^0 

: I 3C) 

, • 1 99 
'-200 
: J 1 0 

:/20 

■2 .^O 
:.240 
■ 299 
".1. 00 
:!. > 1 ^:) 
r y20 

■•■ :.4o 
. :-99 

'.400 
^410 
■420 
^43c:) 
^.440 
^499 
"500 
"'.510 
-.520 
^530 
-.540 
•:599 
■•600 
'.6 1 T) 
3.620 
4499 
4500 
4510 
^4515 
4520 
4530 
4540 
4550 
4599 
4600 



REM im IS the) cursor (OR BLANK 

PF^ I N n.i^si :r ( Ri:)iAj , c- gl > -w i dth, LWOi ; 

PRIN ri?!3C;R (ROW, GOD 4W:[DTH, RW*; 
RETURN 

END: REh « H- H M--M N -)*-^' «- 

REM FAST CURSOR ^^IGITT ROUTINE 
SLR^^SCR ( ROW, COL ; 1 5360-WI DTH 



) TO WRITE AT LEFT OF LOCATION 



POKE SCR, SPACE: 
POKE SCRH 2M-W:rDTH 
ir C()L=CMA>: THEN 



:^EM ERASE LEFT 
, SPACE: REM 



COL^^^l ELSE 



CURSOR 
ERASE RIGHT, 
C0L=C0L+1 



CURSOR 



SCR-=^;:iCR ( ROW , COL ) j-^- 1 5360- W I DTH 

POKE SCR.LCUR: F^EM WRITE LEFT CURSOR 

POKE- SCR-i2HWIDrH,RCUR: REM WRITE RIGHT CURSOR 

Rl^TURN [ 

END : REM^ ^ h k m k m- ■K'-K' 

REM SUBROUTINE TO ERASE THE CURSOR 

LW*&^=" ": RW$==" y 

GOSUB 201)0 ; 

RL rURN 

b M D : H I - M ^- ^. ^- ^ M > ^- K- -K- -M ^- ^ ^- -M ^- 

RI;M SUBRUUrLNE TO Wi-LTE THE CURSOR AT NEW LOCATION 
L W '!> - I.. C U R : R W X> ^= R C U R ^ 
UOSUB 2000 
RETURN 

END: I \' E M ^ ^ ^ ^ * ^- -^^ ■ M- -H- ^- ¥. ¥.■ -K- ¥■ 
REM SUBROUTINE TG Mi.jVE CURSOR E)OWN 
GOSUB 3000 :REM ER/iSE OLD CURSOR 
IK RC)W = RMAX THEN F.'OI^J-l ELSE ROW-ROW+l 
GOSUB 
RETURN 

E N D : F-: E: M ^- >^ J* ^- ^- m k- ^- * ■>* m- ^- ^- ^- * ^ * 
REM CURSOF^ RIGHT 

: REM ERASE OLD CURSOR 
■n\EN COL.-l ELSE CGL=C0L+1 



(WRAP AROUND AT BOTTOM) 




RGW=--^R0W-1 



I ¥■ W H- W M ■¥:■ ¥.■ W H- H M W ¥■ ¥■ ¥. ¥■ M- 

REM CURSOR UP 
GOSUB 3000 

IF R0W==1 THEN RGW=RMAX ELSE 
GOSUB 3100 

RETURN ^ 
END: F\'EM^-^^ -«-«- « -^- «- >f-«-^-«-^- K-K -«--M -«--«-)f 
REM CURSOR LEFT 
GOSUB 3O0O 

IF COL-1 THEN COL-CM AX ELSE COL-COL- 1 

GOSUB 3100 

RETURN 

END: REM^-H--)f****«-^->^-«--H^ * 

REM DISPLAY SELECTED ITEM 

PR I NTii! TL I N4 36 , CHR$ ( ENTRY (ROW, COL ) ) 5 

RETURN 

END: f;:EM-«-^*k--«- k--«-k K ^^--x-K--^- 
SBJCHANGE--^-- 1 

PRINT:PRINT"MAXIMUM NO- OF TRIALS (";NMAX;") 
f'-'R I NT "HAS BEEN REACHEb. " 
PRINT: PRINfRress <SPACE> to continue" 
Kit^=" " : K*=^= I NKEY^ : I F K:^= " " THEN GOTO 4530 
IF K*<.>SPACE$ THEN GOTO 4530 
RETURN 

END: REM*-)^ -^*-^ ****'****'^-^***-*^** 

REM DOS ERROR DISPLAY 
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4601 EC=ERR/2+l: REM ( RROR CODE 

4602 PRINTrRtIM : PR I NT " ERR=" ; ERR "EC=*' ; EC 

4605 IF EC=54 THEN PRINT'TILE NOT FOUND": G0TC3 4680 

4610 IF EC=5B THEN PRINT"DISK I/O ERROR'': GOTO 4680 

4620 IF EC=-^62 THEN PRINT"DISK FULL": GOTO 4680 

4630 IF EC-6b THEN PR I NT "BAD FILENAME": GOTO 4680 

4640 IF EC-68 THEN PR NT"TOO MANY FILES ON DISK": GOTO 4680 

4650 IF^ EC-69 THEN PR INT" DISK IS WRITE PROTECTED": GOTO 4680 

4660 IF EC- 70 THEN PRI.NT"FILE ACCESS DENIED" : G0T04680 

4670 PF"^IN r "MISCELLANEQUS DISK ERROR" 

4630 CMD"E": REM NbWDUS DISPLAY OF DISK ERROR 

4690 RETURN 

4699 END: REMm*****^*^ »f*-»<--H--»<-^**K'-»<--M- 

4700 REM SUBROUTINE TO CHOOSE FROM REMAINING POOL 
4710 REM ON ENTRY: 

4720 REM CH01CE=N0- OF UNASSIGNED ITEMS 

4730 REM TAKEN ( XY) ^ASSIGNMENT ARRAY; 

4740 REM =0 IF XY NOT ASSIGNED 

4750 REM =-1 IF XY ASSIGNED 

4760 REM ON EXIT: 

4770 REM CH0ICE=CHDICE-1 

4780 REM XY IS INDEX OF CHOSEN ITEM 

4790 REM TAKEN (XY)^ -1 FOR CHOSEN XY 

480O IF CH0ICE=1 THEN X=l : GOTO 4830: REM NOT MUCH CHOICE 
4810 X=RND(CHOICE) : REM COUNT TO NEXT UNASSIGNED ITEM 
4830 XY=0 

4840 FOR XX=1 TO X 
4850 XY=XY+1 

4855 REM SKIP OVER ASSIGNED ITEMS AND BUMP INDEX: 
4860 IF TAKEN(XY) "I HEN X Y= X Y+ 1 : GOTO 4860 
4870 NEXT XX 

4880 TAKEN (XY)=-l: REM FLAG NEWLY ASSIGNED ITEM 

4885 CHOICE=CHOICE-l:: REM HOUSEKEEPING 

4890 RETURN 

4Q99 END: RE|>^-«--«--«-->f->f-j( K-** 

4900 REM CLEAR ALL CHOICES 
4910 FOR XY^l TO LMAX 

4920 TAKEN (XY>-0: REM ALL LETTERS AVA ILABLE ^FOR SELECTION 
4930 NEXT XY 

4940 CHOICE=LMAX: REM AND NO. OF CHOICES IS MAXIMUM 
4950 RETURN 

4999 END: REM******************** 

5000 CLS:'IF WIDTH=2 THEN PR I NTCHR* (23) : REM DOUBLE WIDTH SCREEN 
5020 RETURN « 

5099 END: REM*****4************** 

5100 REM DISPLAY »ATA ON SCREEN 

5105 CLS: PRINT" { VALID TRIAL RESULTS FOR ";SUBJECT* 

51 lO PRINT" TRIAl\# SCORE PASSES RATE TARG^POS|| 

5120 FOR T= 1 TO TIa'IAL: REM CURRENT TRIAL IS LAST 

5125 IP VLID(T)-l THEN GOTO 5155 

5130 PRINTUSING"#>f^##"; T; 

5135 PRINTUSING"+#########";SKAWR(T) ; 

5 1 40 PR I NTUS I NG ##########" 5 PASSES < T ) 5 

5145 PRINTUSING"##########.#";RATE! (T) ; 

5150 PRINTUSING"##########";CARG(T) 

5155 NEXT T 

5160 print: PRINT" Press <SPACE> to continue"; 
S165 K*="":K*^=INKEY$: IF NOT (K*=" ") THEN GOTO 5165 
5170 PRINTCHR*<29) ;CHR*<30) ; : REM ERASE LINE ' 

(■^ 

42 • . 



5175 PRINT" CANCELLED TRIAL RESULTS FOR SUBJECT* 
.5180 PRINT" TRIAL # SCORE PASSES RATE TARQ POS' 



5185 PRINT" ==^==== ===== ====== ==== ======== 

5190 IF TRIAL=NT THEN PRINT.rPRINT" NONE, ": PRINT: GOTO 5250 

5192 TC=0: REM NO. OF CANCELLED TRIALS DISPLAYED 

5195 FOR T=- ;i TO TRIAL: REM CURRENT TRIAL IS LAST 

5200 IF VLID(T) THEEN GOTO 5245 

5202 TC=TC+1 

5205 PR INTUSING" #####"; T? 

5210 IF SKAWR(T) 0999 THEN PRINTUSING "+######## "; SKAWR(T); 

5215 IF SKAWR(T)--=999 THEN PRINT" ABORTED": GOTO 5235 

S220 PRINTU£3ING"##########";PepSES<T) 

5225 PRINTUSING"##########.#";RATE! (T); 

5230 PRINTUSING"tt#########";CARG (T) 

5235 IF NOT (TC/12 = INT (TC/12)) THEN GOTO 5245 

5240 REM PAUSE EVERY 12TH LIN^.: 

5242 PRINT" Press <SPACE> to" conti nue" ; , 

5243 K*="":K*=INKEY*: IFK*<>" " THEN GOTO 5243 
244 PRINTCHR* (29) CHR* (30) ; : REM CLEAR LINE 

5^45 NEXT T 

PRINT" Press <SPACE> to continue" 
K!t="" :K!t=INKEY*: IF NC)T(K*-" ") THEN GOTO 5255 
RETURN 

END :'REM*******x ************ 

REM SEND DATA TO PRINTER 

PRINT: PRINT"Press <SPACE> when printer is ready." 
K* = "":K*=:[NKEY$: IF NOT (K*=" ") THEN GOTO 5310 

PRINT: PRINT" In case of printer hang-up, press = <BREAK>, then : GOTOMOOC 
LPRINT" VALID TRIAL RESULTS FOR "; SUBJECT* 

LPRINT" TRIAL # SCORE PASSES RATE TARG PCS'' 

FOR T= 1 TO trial: REM CURRENT TRIAL IS LAST 
IF VLID(T)=0 THEN GOTO 5370 
LPRINTUSING"#####" ; t; 
LPRINTUSING"+########.#";SKAWR (T) j 

^lprintus;i:n6"##########"; PAssES(T) ; 

LPRINTUSIN6"#####tt####.#";RATE! (T) ; 
LPRINTUSING"##########"!! CARG(T) 

NEXT T 
LPRINT 

LPRINT" CANCELLED TRIAL RESULTS FOR "; SUBJECT* 

LPRINT" TRIAL # SCORE PASSES RATE 

'if'^TRIAL=NT THEN LPR I NT : LPR I NT " NONE.":GOTO 5450 
FOR T= 1 TO trial: REM CURRENT TRIAL IS LAST 
IF VLID(T) THEN GOTO 5440 
LPRINTUSING"#####"; t; 

IF SKAWR(t) 0999 THEN feiNT USING" #########" 5 SKAWR ( T ) ; 
IF SKAWR (T)=999 THEN LP^T" ABORTED ": GOTO 5440 

LPR I NTUS I NG " j PAS^ ( T ) 5 

lprintus>ng"##########.#";rati^ (T) ; 
lpr i ntus i ng" ########## ";carg(t) 

NEXT T 

LPRINT: LPRINT: REM SKIP A COUPLE OF LINES 
PRINT: PRINT"PRINTING COMPLETE." 
PRINT" Press < SPACE > to continue" 
K*="":K*=INKEY*: IF NOT(K$=" ") THEN GOTO 5455 
RETURN 

END: REM******************** 
GOSUB 5000: REM CLEAR SCREEN 
FOR C=l TO CMAX 

FOR R=l TO RMAX 
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5615 PRINJ[J| SCR (R,C),CHR*( bNIKYm,lj; )i 

5625 NEXT C 
5630 RETURN 

5699 end: REM************^******** 

5700 REM DISPLAY OF DATA TQ SCREEN OR PRINTER 

5705 CLS: PRINT@6'4*5, "THIS SUBJECT'S SCREENING? IS NOW CC3MPLETE. 
5715 PRINT: PR I NT'^' Press <P> to print data on external printer." 
5717 PRINT"Pres5 <D> to display data on CRT screen." 
5720 PRINT"Press <B> -for both printer and CRT displays," 
5725 PRINT: PR I NT "Press <SPACE> to proce£?d"; 
5727 PRINT" (Neither display nor print)." 
5730 K*="": K$=rINh::EY$: IF K$="" THEN GOTO 5730 
5735 IF K*=" " THEN (30TD 5765: REM EXIT IF <BPACE> 
5740 IF <K$="D" OR K$="d")THEN GOSUB 5100: GOTO 5760 
5745 IF (K*="P" OR K$="p") THEN GOSUB 5300: GOTO 5760 
5750 IF(K*="B" OR K$= " b " ) THENGOSUB 5100: GOSUB 5300: GOTO 5760 
5755 • GOTO 5730: REM IMPROPER RESPONSE 

5760 CLS:PRINTe64*5, " " : GOTO 5715: REM RE-OFFER CHOICES 
5765 RETURN 

599.9 END: REM******************** 
6000 GOSUB 5000: REM CLEAR SCREEN 
6010 PRINTe64*5, "RANDOMI ZING TARGET ARRAY," 
6020 GOSUB 4900: REM CLEAR ALL CHOICES 
6030 FOR C=l TO CMAX 
6040 FOR R=l TO RMAX 
605O GOSUB 4700: REM GET AN JNUSED INDEX XY 

6060 ENTRY (R,C)= ASC ( LEGAL* ( XY) ) : REM ONE OF THE LEGAL CHARS 
6070 IF CHOICE-0 THEN GOSUB 4900: REM RESET IF ALL CHOSEN 

6080 NEXT R ' ■ 

6090 NEXT C , 
610O RETURN . " 

6199 END: REM************-;' ******* 

6200 REM I NFDRMAT I ON L I NE 

6210 PRINTSILIN, "T#" ; trial; " S: ";SUBJECT$; 

6220 RETURN r 

6399 END: REM******************** 

6400 REM DISPLAY TARGET LETTER IN A BOX 
6405 PRINTeTLIN-64+28,CHR$ (156) ; 

6407 PRINTCHR$(140) ;CHR*(172) : REM TOP LINE OF BOX " 

641 O PR I NTSTL I N+28 , CHR$ (149); T ARG$ ; CHR$ ( 1 70 ) 

6415 PRINT@TLIN+64+28, STRING* (3, 131) ; : REM BOTTOM LINE 

. 6420 RETURN • s 

6699 END:REM***^**************** , 

6700 CLS 

6710 PRINT@64*5, "Press <SF-'ACE> to proceed to next subject," 

6720 print: PRINT"Press <ENTER> if there are no more subjects to be screened 
6730 K$="":K$=INKEY$: IF K$="" THEN GOTO 6730 

6740 IF K$=" " THEN GOTO 6780: REM IF < SPACE > CONTINUE LOOP 
6750' IF NOT ( K$=CHR$ ( 13) ) THEN GOTO 6730: REM IF < ENTER > DO: 
6760 SUBJFIN=-l: REM FINISHED WITH ALL SUBJECTS 
6770 GOTO 6780 

6780 RETURN \ 

6799 END : REM******************** 

6800 CLS: PRINT: print: PRINT"When ready to write data for 
6805 PRINT"in disk file: " ; FSPEC$; " , " ; " press < SPACE)" 
6815 K*="" :K*=INKEY$: IFK$<>" " THEN GOTO 6815 
6820 ON ERROR GOTO ^900 

6822 OPEN"!", 1,FSPEC$: CLOSE 1: REM VERIFY FILE EXISTS AND READY 
6825 OPEN "E", i,.FSPEC$ . 

^827 REM LEADING 0, SUBJECT, TOTAL NO, OF TRIALS, bU 



ERIC 



:8 REM NO. OF VALID TRIALS, CHOSEN, ACCURATE 



;o 



F'RINJ#i,6;SUBJECT$; ", ";TRIAL;NT; XCH0SEN5SACCURATE 
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6835 

6840 

6845 

6850 

6855 

6860 

6899 

6900 

6905 

69 1 0 

6915 

6920 

6925 

6930 

6935 

6940 

7099 

7100 

7 1 05 

71,10 

7115 

7120 

7125 

7 1 30 

7135 

7140 

7145 

7 1 50 

7155 

7 1 60 

7165 

7170 

7175 

7180 

7185 

7 1 90 

7195 

7200 

7205 

.7210 

7212 

7215 

7220 

7230 

7240 

7250 

7300 

7310 

7320 

7330 

7340 

7360 

7399 

7400 

7405 

7410 

7420 

7430 

7440 

7450 

7499 



FOR T=l T0"TRIAL: REM CURRENT TRIAL IS MAXIMUM 

PRINTttl, T;SKAWR(T) ;PASSES(T) ;RATE! (T) ;CARG(T) ;VLID(T) 
NEXT' T " 
CLOSE 1 

ON ERROR (30T0 0 
RETURN 

END : REM******************** 
GOSUB 4600: REM DISPLAY DDS ERROR 
RESUME 6910 
ON ERROR GOTO 0 

PRINT:PRINT"To retry -file ";FSPEC*;" press <R>," 
PRINT"To try another -file press <F>." 
K*="":K*=INKEY*: IFK*="" THEN GOTO 6925 



OR 
OR 



K*="r")THEN GOTO 6800 



IF (K$="R" 
IF (K*="F" 
GOTO 6925 

END: REM******************** 
REM COMPUTATION OF SUBJECT'S 



K*="-f") THEN GOSUB 8800: GOTO 6800 



ACCURACY THE ALGORITHM IS: 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



LET NT BE THE NUMBER OF ' VALID TRIALS 

LET NO BE THE NUMBER OF 0 SCORES (NO ERROR) 

LET Nl BE THE NUMBER OF 1 SCORES (+ OR - 1 ERROR) 

IF NT=3 THEN 

TOO ACCURATE, EXIT. 
CHOSEN FOR STUDY, EXIT. 
TRIALS. 



IF N0=3 THEN 
IF N1=3'^THEN 
ELSE DO ^ORE 

IF NT=4 THEN 
IF Nl=3 THEN 
ELSE DO MORE 

IF NT=5 THEN 
IF Nl=3 THEN 
ELSE DO MORE 

IF NT=6 THEN 
IF N0=5 .THEN 
IF (NO+Nl >= 



CHOSEN FOR 
TRIALS. 

CHOSEN FOR 
TRIALS. 



STUDY, EXIT. 



STUDY, EXIT. 



TOO ACCURATE, 
3 AND Nl >=2) 



EXIT. 

THEN 



CHOSEN, EXIT, 



ELSE NOT CHOSEN, EXIT. 



I 



OF VALID TRIALS 



THEN N1=N1- 
REM CHOSEN 



•1 



REM 

NT=NT+l: PEM UPDATE NO. 
IF SKAWR=0 THEN. N0=N0+1 
IF (SKAWR=1 OR SKAWR=-1) 
IF Nl=3 THEN GOTO 7300: 
REM TOO ACCURATE?: 

IP ( (NT=3 AND N0=3) OR (NT=6 AND N0=5) ) THEN 
IF (NT < 6) THEN GOTO 7360: RE;M MORE TRIALS 
REM IF NO. OF TRIALS=6 FORCE. DECISION: 

IF (Nl >= 2 AND NO >=1) THEN GOTO 7300: REM 



GOTO 7320 



CHOSEN 



GOTO 7340: REM NOT CHOSEN, NOT ACCURATE, END OF TRIALS 
REM HERE IF CHOSEN 
XCHOSEN=-l: GOTO 7340 
'REM HERE IF TOO ACCURATE 
SACCURATE=-1 : GOTO 7340 
SBJCHANGE=-1 : REM SUBJECT COMPLETE 
RETURN 

END: REM******************** 4 

REM TEMPORARY STORAGE OF DATA 

VLID (TRIAL)=VLID: REM IS TRIAL VALID? 

CARG (TRIaL)=CARG: rem COLUMN OF TARGET 

SKAWR(TRIAL)=SKAWR: rem DISTANCE OF SELECTION (-5 TO +6) 

PASSES (TRIAL) =PASSES: REM HOW MANY WRAP AROUNDS? 

RATE! (TRIAL )=RATE!: REM SCAN RATE 

RETURN ^5 

END: REM******************** Oi 



7500 REM CHOICK OF SBJCHANGE IN CASE OF TRIAL "ABORT" OR IGNORE 
7510 PRINT@CLIN, "Press <SPACE> for next, trial," 
7520 PRINT" <ENTER> to change subject-"; 

7530 K*="":K$=INKEY$: IFK$="" THEN GOTO 7530 
7540 IF K*=" " THEN GOTO 7590: REM EXIT IF <SPACE> 
7550 IF NOT (k*=C:HR*(13)) THEN GOTO 7530: REM IF <ENTER> DO: 
7560 PR I NTeCL IN, "WARNINGS ! ! THI S SUBJECT ' S DATA " 
7565 PRINT" IS * NOT * COMPLETE!!" r- 

■ 7570 PRINT"Pre5B <N> for new subject," 
7580 PRINT" any other key to continue. "5 

7585 K*="":K$-INKEY$: IF K$="" THEN GOTO 7585 

7586 PRINTi5CLIN,STRING$(30, " " ) : PRINTSTRIh/G$ (30, " ") 
■7587 r'RINTSTRINB* (30, " " ) : PRINTSTRING$ (30, " "); 

7588 IF CK$="N" OR K$="n") THEN SBJCHANGE=-1 ELSE GOTO 7500 
7590 RETURN ^ 

7599 END: REM********-******-** ****** 

7600 IBNAWR=0 

7605 PRINTiaCLIN, "Press <SPACE> if trial okay, 
7610 PRINT" <eNTER> if not valid," 

7615 PRINT" or < s>ee' manual ." ; 

762C) \1<*=" " : K$=INKEY$: IF K$="" THEN GOTO 7620 

7632 IF NOT (K$="s") THEN GOTO 7640: REM LOWER CASE s ONLY!. DO: 

7633 REM DISPLAY SKAWR ABOVE INFO LINE 

7634 F??xINTii! CLi'n-64*4, "PASSES=";PASSES; " SCORE="; 

7635 PRINTUSING"+##" ; SKAWR; 

7640 IF NOT ( K$=CHR$ ( 1 3) ) THEN GOTO 7699 
7650 PRINTeCLIN, "Press <I> to ignore trial, 

7660 PRINT "any other key to continue. "; ENTER*; CHR$ (30) ; 
7670 K<}i=INKEY$: IF K*-"" THEN -GOTO 7670' 

7680 IF NOT (K$="r' OR K$="i") THEN GOTO 7600: REM TRY AGAIN 
7690 IGNi^WR=-l 

7695 PRINT@CLHM-2*64, "TRIAL IGNORED."; 

7696 GOTO 7700: REM AND EXJ_T' 

7699 IF NOT ( K$=SPACE$ ) THERETO 7620: REM LOOP 

7700 RETURN:- REM WITH IGNAWR-0 (SPACE) OR -1 (ENTER-CONFIRMED) 
77<99 end: REM**********^********* 

• 7800 SLECT= ENTRY (ROW, COL): REM CHAR SELECTED (ASCII VALUE) 
7805 SLECT$=CHR* (SLECT) : REM AS A CHARACTER 
7850 REM SEARCH FOR SLECT* FROM TARG$ 
7860 REM FIRST IN FORWARD DIRECTION: 
7870 FOR C=0 TO CMAX/2 STEP 1 
7880 CX=CAR6+C . 

7090 IF CX>CMAX THEN CX=CX--CMAX 

7900- IF SLECT= ENTRY (ROW,CX> THEN SKAWR=C 

7905 REMPRINT"l£=";C,"CX=";CX 

7910 NEX1 C 

7920 REM NOW SCAN REVERSE DIRECTION: 
7930 FOR C=-l TO -CMAX/2+1 STEP -1 
7940 CX=CARG+C 

7950 IF CX<1 THEN CX=CX+CMAX 

7960 IF SLECT= ENTRY (ROW,CX> THEN SKAWR=C 

7965 REMPRINT"C=";C, "CX=";CX :REM <~ FOR DEBUGGING 

7970 NEXT C . 

7995 RETURN 

7999 end: REM******************** 

8000 REM SUBROUTINE TO DRIVE CURSOR AND CHECK INPUTS 
••8010 RATE-INT (RATE! > :TMAX=SECND (RATE) 

8040 REM JJNTIL INPUT DO: 

805O GOSUB 8300: REM CHECK H^PUTS TMAX ITERATIONS 
8060 K$<>"" THEN GOTO 8110: REM QUIT IF ABORT OR SELECT. 

O 8070 M ELSE DO: 
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8080 
8090 
a 100 
8 1 1 0 
8120 
8299 
8300 
8320 
8325 
8330 
8335 
8340 
8345 
8350 
B355 

8360 
8370 
8399 
a 400 
8420 
(3430 
8499 
8500 
8505 
8510 
8515 
85 1 7 
8520 
8522 
8525 
8530 
8535 
8540 
8542 
' 8545 
8550 

8555 
8560 
8565 
8570 
8575 
8580 
8535 
8590 
8595 
8597 
8599 
860C) 
86 1 0 
8620 
8630 
8635 
8640 
8650 
8660 
8670 
8699 
8700 
"8710 



GOSUB 2800: REM DRIVE CURSOR RIGHT 
IF COL^l THEN PASSES=PASSES+1 
GOTO 8050: REM AND LOOP 
KK$=INKEY$: REM MUST RESET INKEY* BEFORE RETURN 
RETURN " ' 

E N D : R E M ****** •»♦•************ * 

REM CHECK INPUTS TMAX ITERATIONS, RET ABORT OR SELECT 
FOR T=l TO TMAX 

REM IF < ENTER), THEN ABORT 

IF PEEK (14400)=! THEN K$=" ABORT": GOTO 8355 



REM CHECK FOR SELECTION ( V I A"^ SW I TCH ) 
'REM IF <e>, THEN SELECT 
'.. IF PEEK ( 14337) =1 THEN K$="SELECT": GOTO 8355 
G0T08360: REM LOOP IF NEITHER 
IP (K$=" ABORT" OR K$=" SELECT") THEN 
T=TMAX+i: REM EXIT LOOP 
NEXT T 
RETURN 

END: F<EM******************** 

BOSUB 6400: REM DISPLAY TARGET CHAR 

ROW=l: COL=l: GOSUB 3100: REM HOME AND WRITE CURSOR 
RETURN 

END: REM******************** 

REM SUBROUTINE TO (OPTIONALLY) GET NEW RATE AND GO 
PRINieRLIN, "RATE=" ; 

printusinb"#.#";rate!; ' ■' 

PRINT@RLIN+WIDTH*9, " <R> to alter," 
PRINTSTRING*(6, " ");"<SPACE> to start triai.. ";■ 
H$="":K$=INKFY$: IF K$=""'tHEN GOTO 8520 

NOT (K$=SPACE$ OR K$="R" OR K$="r") THEN GOTO 8520 



IF 



) 



OR ' K*= 



856J 



PRINT@RLIN+WIDTH*9, STRING* (1 
IF.K*=SPACE$ THEN GOTO 8595 

REM IF "R" THEN DO: 

PRINT(§RLIN+WlbTH*9, "New rate?" 

PRINT" (0,5 1,0 2,0 5.0) ",;CHR$(95); 

K*="":K$= INKEY* 
.IF NOT(K$="0" OR K$="l" OR K$="2" OR K*=" 

THEN GOTO 8545 

IF NOT(K$="0" OR K$=",") THEN GOTO 8580 
PRINT CHR$(8) ; "0, ";CHR$ (95) ; 
K$=INKEY*:IF N0T(K$="5") THEN GOTO 

PRINT chr$(8);k$;: K$="0ri;5" 

G0T08585 

PRINT CHR$(8) ;K$; ",0"; 

RATE ! =VAL (K$) 
F0RXX=1T0350:NEXT: GOTO 8500: 
PRINT"<ENTER.> aborts trial. "5 
RETURN 

end: REM******************** 
GOSUB 4700: REM GET AN INDEX 
TARG$=LEGAL$<XY) ' ^ .r-ou^r^ 

TARG=ASC(TARG$) : REM USE ASCII VALUE FOR SEARCHES 
REM FIND COLUMN OF TARG* 
pOW=l: REM THIS WILL BE AN OUTER LOOP 
FOR C=l TD CMAX 

IF TARG= ENTRY (ROW,C) THEN CARG=C 
NEXT C . • 
RETURN 

END: REM******************** 
CLS , V A? 

PRINT:PRINT:PRINT ' 



REM DELAY AND LOOP 



W/OUT REPLACEMENT (XY) 



IN SWITCH/BAS 
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20 
725 
6730 
8735 
8736 
8737 
87 40 
8745 
8750 
8755 
8760 
8770 
8780 
8/82 
8783 
8784 
8785 
8/90 
8799 
8800 
88 1 0 
8840 
8845 
8850 
8855 
8860 
8862 
8864 
886<b 
8868 
8870 
8871 
8872 
8875 

aaao 

8881 
8882 
8885 
8886 
8890 
8895 
8897 
8398 
8899 
8900 
8905 
8907 
8908 
8910 
8915 
8920 
8925 
8930 
8932 
8935 
8940 
8942 
8943 
8945 
8947 
8950 
8995 
8999 
. 9000 
O 02 



Do not use commaB. 



NT=0: N0=0: N1=^0 



which the. 
be added" 



data"* 



SUBJECT*^"" 

ZZ=FRE<SUBJECT*) : REM GARBAGE COLLECTION 
PRINT"Enter the idpnti-fier -for the next subject. 
PRINT" (Maximum length 22 characters)" 

print:print" • ' 11111111,1 22" 

PRINT " 123456789. 123456789. 12" 

INPlJT"Suta i&ct i den ti -f a er "; SUBJECT* 
SUBJECT*=LEF-T* (SUBJECT*, 22) : REM TRUNCATE 
PR I NT: PR I NT: PR I NT "Press < SPACE > i -f "; STR I NG* < 2, 1 3) ; • 
PRINTSUBJECT*;STRING*(2;, 13) 3 "is okay, any other key i -f not. 
K$=:"" 

K*=1NKEY*: IP K*="" THEN GOTO 8770 
IF NOT (K^^^SPACE*) THEN GOTO 8700 
REM IF NOTn TRY AGAIN, ELSE RESET COUNTERS: 
REM NT=ND. OF VALID TRIALS, NO=NO. OF 0 ERRORS, 
REM N.1-=^ND. OF ERRORS. 
TRIAL=0: XL:H0SEN=0: SACCURATE=0: 
RETURN 

END: REM^^**^ ^^ ><-'^ 
CLS 

PRIN-I : PR I NT: PR I NT 

PRlNT"Enter name o-f disk -file to 
PFUNT" -from this session is to 
PR INT: PR I NT "or press < SPACE > i -f : "; 
PRINT FSPEC*;" is okay." 
PR I NT: PRINT "File name? "; 

K*="":K^li=INKEY*: IF K*="" THEN GOTO 8862 
IF K*==SPACE* THEN GOTO 8872: REM IF NOT <SPACE> DO: 

FSPEC^=K*4i: REM GET FIRST CHAR 

PRINTFSPEC*; : REM AND ECHO IT ' 

LINE INPUT K*: REM AND GET REST OF NEW FILESPEC 

FSPEC*=FSP£D*+h>* . 
ON ERROR GOTO 8900: REM ATTEMPT TO OPEN EXISTING FILE 
OPEN "I", .1 ,FSPEC$: REM VERIFY FIRST LINES OF FILE OK 
LINE INPUT#1,K1*: LINE INPUT#1,K2*: LINE INPUT#1,K3* 
CLOSE 1 

ON ERROR GOTO 0: REM DISABLE. ERROR TRAPPING - 
PRINT: PRINr"THESE ARE^THE FIRST 3 LINES IN FILE: " ; FSPEC* ' 
PR I NT: PR I NTK 1 $ : PR I NTK2* : PR I NTK3* 

PRINT: PRINT"Press <SPACE> i-f this is okay, any other key i -f not." 
K$-="":K*==INKEY*: IF K*="" THEN GOTO 8B9.5 
IFKSO" " rHEN GOTO 8800: REM NOT PROPER FILE 
RETURN: REM PROPER FILE HAS BEEN VERIFIED 

END: REM******************* J< . . * . 

REM ERROR HANDLING FC3R INITIAL OPEN 
•GOSUB 4600: REM DISPLAY DOS ERROR 
RESUME 8908 

ON ERROR GOTO O: REM RESTOR ERROR HANDLING 

IF EC054 THEN GOTO 8947:" REM IF NOT FOUND DO: 

. PRINl : PRINTFSPEC*; " NOT FOUND. ": PRINT"Pr^ess, <C> lo create new -file, 
PRINT" any other key to continue-" 

k*="":K*=^'INK£Y*: IFK*="" THEN GOTO 8925 

IFNOT(K*="C" OR K*="c")THEN G0T08995: REMCREATE NEW FILE: 
ON ERROR GOTO 8900 

OPEN"0", 1\FSPEC* ' - 

"CHILDREN'S HOSPITAL AT STANFORD PROJECT. SCREENING DATA." 
"IDENT: O; SUBJ id; tot. trials; valid trials; CHOSEN?; ACCUR 



1 



PRINT#1 

print#i 

PRINT#1 
CLOSE tl 
PRINT"Press 

GOTO 



"DATA: trial; score; passes; 

ON ERROR GOTO 0: GOTO 8995 
<SPACE > to continue" 
: K*=INK:EY*: IFK*<>" " then goto 8950 
8800 



rate; targ pos; valid?' 



ERIC 



END: REM**#<i<-)(-********^ 48 
CLS:PRINTi5 )4, " INITIALIZING.' " 

DEFINT A-2: REM SINGLE AND STRING MUST BE.EXPLICIT 



9065 
900/ 
9008 
9,bl0 
9015 



ERiC: 



/?017 
9018 
902i."> 
9025 
9028 
9030 
9035 
9040 
9045 
9048 

905 1;» 
905 1 
9052 
9053 
9(:i54 
9055 
906(:) 
9065 
9(:)70 
9072 
9073 
9075 
9076 
9077 
9081:) 
9085 
9090 
9350 
9360 
9399 
940<J 
9410 
9420 
9430 
9440 
9450 
9455 
9460 
9470 
9480 
9490 
95O0 
9510 
9520 
9530 
9540 
9550 
9555 
9560 
9565 
9600 
9610 
96 f 5 
9620 
9630 
°640 
650 
660 
9670 



WIDTH=2: REM l=SINGLt£, 2=D0UBLE 

RCUF"<=132 

LCUR=136 

RCUR'*=== CHF^IKRCUR) 
L.CUR*= CHR$(LCUR) 
SF^-ACEili^^" ": ENTER$=CHR$ (13) 
SPACE=ASC (SPACE*) : ENTER=ASC ( ENTER* ) 

SECND!=2B: REM 1 SEC IN TIMING LOOP CP. SECND(RATE) 

DWN*-CHR*(K)) : UPt=CHR« (91 ) : LFT$=CHR$ (8) : RGT$=CHR$ ( 9) : REM ARROW KEYS 
ROW=0: COL==0: SCR--=0' :REM defined here POR quick ACCESS 
TL.IN=64*l: REM LINE FOR TARGET AND SELECTION DISPLAY 
ILIN=64*13: REM SUBJECT ID LINE 

CLlN==ILIN-64*4':' REM LINE FOR CHOICES (IGNORE, ABORT, ETC.) - 
RLIN=64>H4: REM RATE LINE 
RATEI-l.O: REM (0.5, 1.0, 2.0, 5.0) 

RATE=INr (RATE I ) : REM INDEX POR SECND ARRAY (0,1,2,5) 
CARG==0: REM COLUMN OF TARGET CHAR 
TARG==0: REM ASCII VALUE OF TARGET CHAR 
BELECT-O: REM ASCII VALUE OP SELECTED CHAR 
VLID=-l: REM TRIAL VALID? (-1=YES) 
SKAWR=0: REM SCORE ON A TRIAL 
PASBES=0: REM NO. OF PASSES ON A TRIAL 
SUBJF-IN=n: F^■EM NO MORE SUBJECTS? (-1=N0 MORE) 
BBJCHANGE=0: REM NEW SUBJECT? (-1=YES) 
SACCURATE=u: REM SUBJECT TOO ACCURATE? (-1=YES) 
XCHOSEN=0: REM SUBJECT CHOSEN POR STUDY? (-1=YES) 
IGNAWR=0: REM LAST TRIAL INVALID? (-1=YES) 
NT=0! REM NO. OP VALID TRIALS 
N0=0: N1=0: REM NO. OP 0 (+-1> ERRORS 
CF^DICE^0: REM NO. OF CHOICES LEFT IN POOL 
XY-O: REM INDEX OP CURRENT CHOICE 
FSPEC*="SCREEN/DAT"' : REM DEFAULT DATA PILE 
GOSUB 9400: REM SETUP ARRAYS 
RETURN 

END : REM*******-**-************ 

REM SETUP ARRAYS. SCR (ROW, COL) IS SCREEN POSITION OF ROW AND COLUMN 
RMAX=i: CMAX=12: REM ROW AND COLUMN SIZE 
DIM SCR(RMAX,CMAX) : DIM ENTRY (RMAX , CMAX ) 
POR R=l TO RMAX 

ROW= 2+lK-R :REM first 5 LINES POR INFORMATION 

POR C=l TD CMAX 

REM 2=1 CHAR + 1 SPACE. CENTER ARRAY ON SCREEN: 
COL= (64/WIDTH-2*CMAX) /2+2*WIDTH*C 
SCR(R,C;=R0W*64+C0L ^ 
NEXT C 
NEXT R 

REM MAXIMUM TRIALS FOR ANY SUBJECT ( INCL INVALID ONES) 
NMAX=25 

DIM CARG(NMAX): DIM PASSES(NMAX) 
DIM SKAWR(NMAX): DIM RATE!(NMAX) 
DIM VLID (NMAX) 
SECND ( 0 ) =SECND ! *0 
SECND (1)=SECND!*1 
9ECND (2) =SECND !*2 
SECND (5)=SECND!*5 
REM ONLY LEGAL CHARACTERS 
LMAX=12: REM NO. OF LEGAL 



REM RATE! =0.5 
REM RATE! =1.0 
REM RATE! =2.0 
REM RATE! =5.0 

FOR DISPLAY 
CHARACTERS 
REM ASSIGNMENT ARRAY 



,41; 
, O: 
,24; 
, 91; 



DIM TAKEN (LMAX) 
DIM LEBAL* (LMAX). 
FOR L=l TO LMAX 

READ LEGAL* (L) 
NEXT L 
RETUf^N 

DATA L,A,H,X,E,T,P,U, J,Z,S,D 
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A9 



PRDATA/aAS 



4 70 

oCx!) 
^)05 
607 
1 (.) 
620 
625 
630 
640 
642 
643 
645 
65U 
660 
7 00 
7 1 0 
900 
9 1 0 
920 
999 
1 (.)00 
4599 
4600 
4601 
4602 
4605 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
46B0 
4690 
4999 
5000 
5020 
5099 
5100 
5105 
5107 
5108 
5 1 1 0 
5115 
5120 
5125 
5130 
5135 
5140 
5145 
5150 



BOOO: 
1 000 : 



GIJIlUB 
i:LbAI< 

p iNr- 11. -o: 

IF- FINFIL 



CHIBUB 9000: 



rl::M o=MDP\t:- 

rflEN GO 10 



THIi 

FILES, 

900 



, PR0(3RAM^S 
INIVI lALIZE 



FIJNU ( ION 
POINTERS 



AND ARRAYS 



REN DC) UN [II m MORE FILES: 
b:OF'-o: REN "l^END GF FILE:: 
GGBUB BBOO: REM GE 1 FILESPEC, 
CiOSUH 7900: Fn'EN all or SINGLb 



LOOP "FILE" 
0=NDT NOTE SPELLING 

OPEN FILE, VERIf-Y OK 
SUBJECT NODE? 



IF' NOl ALL 
SUBJECT* 

IF 



DO: 



THEN GOTO 610: REN IF ALL 
"ALL SUBJECTS FN FILE" 
: (lOBUB 5700: REN TYPE OF DISPLAY FOR ALL? 
h:1'-SPACE$ THEN E0F = -1: REN IF NO DISPLAY, EXIT FILE 



IF 



DSP1'-F:$: REN GTDRE TYPE OF DISPLAY 

■ EOF THEN GOTO 70(:) : REN UNTIL EOF DO: LOOP "SUBJECT 
GlJSUfi 7B00: REN GET NEXT SUBJECT AND DATA 
REN IF NOT ALL GET TVPE OF DISPLAY THIS SUBJECT 



IF- r'QT ALL THEN GOSUB 5700: DSP$==l<t. 
F::ii--DSP*: f^•EN GET PERNmNENT VALUE IF ALL 
IF FOli=" " THEN CLS: GO FG 650: REN IF DESIRED 
GOSUB 6OOO: REN FIRST DISPLAY AS PER DSP$ 
GGBUB 6100: REN REPEAT DISPLAY IF DESIRED 
EOF-EOF(l): REN END OF FILE-^ 
GOTO 6 10: REN END LOOP "SUBJECT" 
GOSUB 760o: REN ANY NORE FILES? (SET FINFIL) 
GOTO 530: REN END LOOP "FILE" 
REN EXIT TO DOS: 
INPUT "EXIT TO DOS (Y/N)";K$ 
K$-LEFT$(F;*, 1) : IF <K$="Y" OR 
END: REN-i^-i^*-*^ ************* 
GOTO 5450: REN RECOVERY FRON 
END: REN*****************-*^*"* 
REN DOS ERROR DISPLAY 
EC=ERR/2+l: REN ERROR CODE 
PR I NT : REN : PR INT" ERR= " ; ERR , " EC- " 



DO: 



K$="y") THEN CND"S" 
PRINTER HANG-UP 



!EC 



IF 
IF 
[ F 
IF 
IF 
IF 
IF 



EC = 54 
EC=5a 
EC==62 
EC=65 
EC = 6B 
EC = 69 
EC=70 



THEN 
THEN 
THE^ 
THEN 
THEN 
THEN 
THEN 



PRINT"FILE NOT FOUND": GOTU 4680 
PRINT "DISK I/O ERROR": GOTO 46B0 
PR INT "DISK FULL": GOTO 4680 
PR I NT "BAD FILENANE": GOTO 4680 
PR I NT "TOO NANY FILES ON DISK": GOTO 4680 
PRINT"DISK IS WRITE PROTECTED": GOTO 4680 
PRINT"FILE ACCESS DEN I ED " : G0T04680 
PRINT"NISCELLANEOUS DISK ERROR" 
CND"E": REN NEWDGS DISPLAY OF DISK ERROR ' 
RETURN 

END: REN******************** 

CLS: IF WIDTH-2 THEN PRI NTCHR* ( 23) : REN DOUBLE WIDTH SCREEN 
RETURN 

END : REN*******-*^ ************ 
RFN DISPLAY DATA ON SCREEN 

PRINT: PRINT" VALID TRIAL RESULTS FOR "; SUBJECT* 



PRINT" 
PRINT" 
PRINT" 
PRINT" 
FOR T= 



CHOSEN? — ";YESN0$(XCH0SEN+1) 5 
TOO ACCURATE? — " ; YESNO* (SACCURATE+ 1 ) 



TRIAL # 



SCORE 



PASSES 



RATE 



TARG POS" 



1 TO trial: REN CURRENT TRIAL IS LAST 
IF VLID(T)=0 THEN GOTO 5155 
PR I NTUS I NG " ##### " ; T ; 
PRINTUSING"+#########"!J SKAWR<T) ; 
PRINTUSING"######«###" vPASSES (T) 5 
PRINTUSING"##########.#"; RATE ' (T) ; 
PRINTUSING"##########"; CARG(T) 
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155 NEXT r 

\hO PRim:Pf=<im" Prc?5B <::SPACE> to continue"; 

165 'l.=INKE:Y$: IF NQT(K*«" ") THEN GOTO 5165 

if 70 PR I N rcHK'1. ( V ) ; CHr<i< ( 30 ) ; : rem erase l i ne 

175 f-'RINT" CANCELLED TRIAL RESUL-pi F-OR ";SUEiJECT* 
-IHO l-'RINT" TRIAL t> SCORE PASSES RATE TARG POS" 

,105 l-'RINT" =:---™=— ===== ===^r.= ========". 

,170 [P IRIAL-NI" [HEN PF^■INT:PRINT" NONE .": PRI NT : GOTO 5250 

,1«?2 TC^^O: f<E.M NO. OF CANCELLED 1 RIALS DISPLAYED 

,1^?5 FOR T- 1 TO TRIAL: F^EM CURRENT TRIAL IS LAST 

1200 IF VLID(T) THEN GOTO 5245 

.202 TC=^^TC+1 

i205 PR 1 NTUS I NG " ; T ; 

j2iO IF SKAWR(T) 0999 THEN PRINTUSING "+##♦♦###♦♦♦♦ "; SKAWR(T); 

i215 IF- BKAl'JR(T)=999' I HEN PRINT" ABORTED ": GOTO 5235 

.220 PRINTUSING"##########" ;PASSES (T) ; 

i225 pRINrur:iING"+>#######tt#. #" ; RATE I (T) ; 

^.2 '.O pRlNTUSING"#«######tt#"5CARG( T) 

i235 IF NOT (rC/12 INT (TC/12) ) THEN GOTO 5245 

1,240 REM PAUSE PIVERY 12TH LINE: 

^,-41' PHtNf" Press ;:SPACE> to continue"? 

j243 -I *="" : K$=] l-JF-EY*: IPK*<>" " THEN GOTO 5243 

:,244 PR,IN,f'(vHR* ( ..'9) ; CHR* (30) ; : REM CLEAR LINE 

^245 NEXT F 

:.25t;» PtnURN 

i)299 END: REM'*^^*-**-****-***-**-******* 
i30O REM SEND DAT A"^ TO PRINTER 

=.^05 PRINT:' PRINT"Pre5s <SPACE> when printer is ready." 
53 to K'ti="":F.:*=INKEY*: IF NOT (K* = " ") THEN GOTO 5310 

=j:';i5 PRINT:PRINT" In case of printer Fiang-up, press <BREAK>, tFien : GOTO 1000 

5320 LPRINT"' VALID TRIAL RESULTS FOR 'l; SUBJECT* 

=j322 LPRJNT" CHOSEN? — " ; YESNO* ( XCHOSEN+ 1 ) ; 

532^^ I PRINT" TOD ACCURATE'!' — " ; YESNO* ( SACCURATE+ 1 ) 

5325 LPRINT" TRIAL « " SCORE . p'ASSES RATE 

i335 FOR^T= 1 TO trial:, REH CORRENt' TRIAL IS LAST 

5340 IF VLID( O THEN GOTO 5370 

5345 LPRINTUS: Nh '#####"; t; - 

5350 ' LPRINTUb;f-U_S"+l»########";SKAWR(T) ; 

5355 LPRINTUSING"##########";PASSES<T) ; 

5360 •LPRIKjTUSING"##########.#";RATEI (T) ; 

5365 . LPRINTUSING"####W«####";CARG(T) 

5370 NEXT eJ . ■ . » 

5375 LF='RINT ' . 

LPftlNT" CANCELLED TRIAL RESULTS FOR "; SUBJECT* 



LPRINT" TRIAI^# ~ SCORE PASSES RA^E TARG POS|| 

.IF TRIAL-NT THEN LPRINTi LPRI NT" ' NONE. " : (30T0 5442 ^ 
FOR T= 1 TO. trial: REM CMRRENT TRIAL IS LAST 
IF-VLID(T) THEN GOTO 5440 - - • . 

LPRINTUSING"#####"; t; . 

IF SKaVjR(T) 0999 THEN LPRINT US I NG "##.#######"; SKAWR (T ) ; 
IF SKAWR(.T)=999 THEM LPRINT" ABORTED ": GOTO 5440 

LPRINTUSING"##########"; PASSES (T) ; ' 
L>RINTUSING"####tt##%##.»";RATE! (T) 5 
'lPRINTUSING"##########"; CARG (T) 

NEXT T ' • ■ 

lprint: lprint: rem skip a couple of lines . . 

print:print''.printing complete." . \ 

RETURN - . - _ 51 0.5 ■ . 

END :REM**^*-******^f • , . O/, 

\. '' • , ' ■ .... /. 



5700 
5705 
5710 
5715 
57 1 7 
5720 
5725 
'in 27 
5730 
5735> 
5740 
^745 
5750 
5755 
5790 
5999 
6000 
6005 
6010 
6020 
6030 
605C> 
6099 
6 1 00 
6 1 1 6 
6 1 20 
61'?0 
6 1 40 
6 1 50 
6155 
6160 
6 1 70 
61.90 
• 6699 
6700 
6710 
6720 
6730 
6740 
6750 
6760 
6770 
6780 
6799 
6800 
6805 
6810 
6815 
6830 
6835 
6840 
6845 
6850 
6855 
6899 
6900 
6905 
6910 
6920 
6940 
73 



RtEM GET TYPE OF 
PRINTii!64»5, "How 
PfUNTSUDJECi*; 



DISPLAY DeSIRED, RE I UKN 1n' K* 

do you want: the dat-a presented -foi^ 



print: PhlNT"Pr,esa . <P.> to print data on" external printer. 
PRINT"Pre5S <D> to display data on CRT scftJen . " 
PRINT"Prev:;B <B> for , both printer and CRT displays." 
PRINT:RRlNT"Pre5S <SPAqE> to proceed"; 
PRINT" (Neither display^nor print),." 
K'|i=-"":l;*=INKEY$rIF •K<Ji="" THEN GOTO 5730 

IF K*=" " THEfvl GOTO 5790: REM EXIT IF <SPACE> 
, IF (K$---"D". OR K$="d" ) THEN GOTO 5790 
IF (K*="P" OR K*="p") THEN GOTO 5790 
1F<K*""B" OR' K*="b")THEN GOTO 5790 
C50T0 5730: REM. IMPROPER RESPONSE 
RETURN . ; 

END: REIi**-^-***************** - 
REM TYPE OF, DISPLAY <IN,,K$) 

'if K$=" " THEN GOTO 6050: REM EkiT IF <SPACE> 
IF (Kt = "D" OR K*="d")THEN GOSUtl 5100: GOTO 6050 
IF (K$="P" OR K*="p") THEN GOSUB 5300: GOTO 6050 
, if(hH="B"'OR K$="b") THENGOSUB 5100:60SUB 5300:G0T0 60 
RETURN • 

END: REM****'* **f ************ 
PRINT" Press <SPA5,E> to continue* 

PRINT" Press <R>*fDr repeated display and/or print."; 
K*="":K*-fNKEY*/lF K*="" THEN GOTO .6120 
IF K$=" " THEN .GOTO 6190: REM EXIT IF SPACE 

THEN GOTO 6l50 
TYPE 
REM 



OF DISPLAY 
QUIT IF NO 



DISPLAY' 



L053P 



©^00 



s*10 



IF NOT (K*="R" OR K*="r") 
CLS: GOSUB 5700: REM GET 
'IP ■f^:*^" ""THEN GOTO 6190]^; 
GOSUB 6000: REM DO IT 
6010 6100: REM AND 
CL^^ . RETURN 
END: REM******************** '-.i ' ; ' - 
CL& ■ ' • ' - 

PR l'NT@64*5, "Press <SFACE> to proceed to next subject." 
PRINT: PRJNT"Press -<ENTER> if there ar/te no^ more subjects 
K«="":K.$=INH:EY$: IF K,*="" THEN GOTO; 6730 ^ 
jp ^..^=n THEN GOTO 6780: REM IF ^ SPACE > CONTINUE LOOP 
IF NOT (K$=CHR*(13) ) THEN' GOTO 6730: REM -IF <ENTER> DO: 
SUBJFIN=-i: REM FINISHED 'WITJH ALL SUBJECTS 
tjOTO tolQO ' - ^ : ' f ' ., 

RETURN ^ • 
END: REH*******************"^ 

REM DISK ERROR HANDLING F0R\ INPUT FROM FILE 
GOSUB 4600: REM DISPLAY DOS ERROR 
RESUME 6815 ' , ' . ' ^ 

ON ERROR G0T0.0 

PRINT:PRINT"To retry f i 1 e- " ; FSPEC*; '; press <fR>," , 
PRINT"Td try another file presfe <F>. " 
K$="":K$=INKEY*: IFK*="" THE^M GOTd fiQ40 ; , • 
IF (K*="R" OR K*=-"r")THEN GOTO 7800 , " ' 

IF <K*="'F" OR K*="f") THEN RUN 500 
GOTO 6840 ■■ ' 

END: REM******************** 
REM DISK ERROR HANDLING FOR INITIAL 
GOSUB 4600: REM DISPLAY DOS ERROR 
RESUME 6920 
ON ERROR GOTO 0 

goto 8805: rem prompt. again for 
:nd:rem******************** • 

REM temporary STORAGE OF DATA 
VLID<TRIAL)=VLID: REM IS TRIAL VALID? 
CARG<TRIAL)=CARG: REM COLUMN OF TARGET 



OfEN OF FILE 



FILESPEC 



68 
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7420 
7430 
7440 
7450 
7599 
7600 
7602 
7605 
7610 
7620 
7630 
7640 
7650 
7660 
ILIO 
7680 
7799 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7882 
7885 
7887 
7890 
7899 
7900 
79 1 O 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
7995 
7999 
8000 
8010 
8020 
8030 
8040 
8080 
8085 
8090 
8100 
8110 
8130 
8140 
8150 
8160 
8170 
e''/9 
' 8300 



SKAWR(TrUAL)=SKAWR: REM DISTANCE OF SELECTION (-5 TO 
PASSES (TRIAL) =PASSES: REM HOW^ MANY WRAP AROUNDS? 
RATE ! (TRIAL )=RATE ! : REM SCAN RATE 
RETURN 

END: ^^^V^'ih^^h^^^^^c^^^^'^c^^^^^^^ 
CLS : PR I NT : PR I NT : PR I NT 
CLOSE 

PR I NT "END OF PROCESSING FOR FILE: 
PRINT"Press <SPACE> to proceed to a 
PRINT: PRINT"Pre5B <ENTER> if you do 
K<$=:" " :K*.= INKEY*: IF K*="" THEN GOTO 



+6) 



" ; FSPEC*: print: pr int 

new -file. 

not wish to look at any 
7630 



more data. 



IF K*=" " THEN GOTO 7680: REM IF <::SPACE> CONTINUE LOOP 
IF NOT (KS=ENTER*) THEN GOTO 7630: REM IF <ENTER> DO: 

FINFIL=-i 

GOTO 7680 
RETURN 

END: REM-><-*-«--«--«-***-><-')<--«-**'^**-«*** 

RFh GET SUBJECT AND DATA, DISPLAY SUBJECT 
ON ERROR GOTO 6800 

REM LEADING 0, SUBJECT, TOTAL NO. OF TRIALS, 
REM NO. OF VALID TRIALS, CHOSEN, ACCURATE 
INPUT#1 , T, SUBJECT*, TRIAL, NT, XCHOSEN, SACCURATE 
FOR XT=1 TO TRIAL: REM CURRENT TRIAL IS MAXIMUM 

INPUT#1,T,GK:AWR (T) , passes (T) ,RATE! (T) ,CARG(T) ,VLID(f ) 
NEXT XT 

ON ERROR GOTO 0: REM DISABLE ERROR TRfr^PING 
CLS : PR I NT " SUBJECT : "5 SUB J ECT* 
PRINT" CHOSEN? — " ; YESNO^ ( XCHOSEN+ 1 ) ; 
PRINT" too ACCURATE? — " ; YESNO$ (SACCURATE+1 ) 
RETURN 
END: REM-«--«--«- 

CLS: PRINT: PRINT: PRINT 

PRlMT"Pr.ess^ <SPACE> if you want to decide for each subject 
PRINT" in the file, whether to display and/or print the data. 
PRINT: PRINT"PreBS <A> if you want ALL the subjects in the file 
PRINT" to be displayed and/or printed in the same way- 
K$=" ".:K*=INh::EY*: IF K:ii="" THEN GOTO 7950 
IF K*=" " THEN ALL=0: GOTO 7990 
IF (K*="A" OR K$="a") THEN ALL=-1 : 
GOTO 7950: REM INVALID RESPONSE 
CLS 

RETURN 

END : REM*******-**--**-******-^***-**- 

CLS 

PRINT"The purpose of this program 
PRINT" data stored by the program 
PRINT:PRINT"This program will prompt you for the name of the 
PRINT" file in which the data was stored by SCREEN/BAS. 
PRINT: PRINT"After you verify that the correct file has been opened, 
PRINT" VDU will be given the option of displaying the data 
PRINT" for ALL of the subjects in the file in the same manner, 
PRINT" or of deciding fQr each individual subject in the file, 
PRINT" whether or not (and how) you want the data displayed- 
PRINT: PRINT"You will be able to repeat the display of any data 
PRINT" that. is presented, as man/ times as you wish. 
PRINT: PRINT"PresB <SPACE> when you are ready to begin."; 

:K*=INKEY*:'IF K$<>" " then goto 8160 
RETUI-VN 

END: REM^^^-i^'****^-*****-^*'**-^*'"*^* 
CLS * 



GOTO 7990 



i s to 



d i spl ay 



and/or print 
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8805 CLOSE: REM MUST CLOSE' BEFORE OPENING A NEW ONE 
8810 PRINT: PRINT: PRINT 

8840 PRINT"Enter name of disk -File -from which the data" 
8845 PRINT" to be displayed and/or printed is to.be taken" 
8850 PRINT: PRINT"or press <SPACE> if: "S 
8855 PRINT FSPEC$; " okay." 
8860 PRINT:FRINT"Fi le name? ; 

8862 K*="":K$=INKEY$: IF K*="" THEN GOTO 8862 

8864,, IF K$=SPACE$ THEN GOTO 8872: REM IF NOT < SPACE > DO: 

8866 > FSPEC$=K$: REM GET FIRST CHAR 

8868 PRINTFSPEC*; : REM AND ECHO IT ' 

8870 LINE INPUT K$: REM AND GET REST OF NEW FILESPEC 

8871 FSPEC*=FSPEC*+K* 

8872 ON ERROR GOTO 6900: REM ATTEMPT TO OPEN EXISTING FILE 
8875 OPEN " I " , 1 , FSPEC$: REM VERIFY FIRST LINES OF FILE OK 
8880 LINE INPUT#1,K1$: LINE INPUT#1 , K2$: LINE INPUT#1,K3$ 

- 8882 ON ERROR GOTO 0: REM DISABLE ERROR TRAPPING 

8885 PRINT: PR I NT," THESE ARE THE FIRST 3 LINES IN FILE: " ? FSPEC* 

8886 PRINT:PRINTKl*:PRINTK2$:PRINTK3i_ 

8890 PRINT: PRINT"Pre55 <SPACE> if this is okay, any other key if not." 
8895 Kifc="" :K$=INKEY$: IF K*^"" THEN GOTO 8895 

8897 IFK$<>" " THEN GOTO 8800: REM NOT PROPER FILE 

8898 RETURN: REM PROPER FILE HAS BEEN VERIFIED 
Q999 END: REM»**»**************** 

9000 CLS: PRINTe5*64, " INITIALIZING." 

9002 DEFINT A-Z: REM SINGLE AND STRING MUST BE EXPLICIT 
9005 WIDTH=2: REM 1=S INGLE, 2=DDUBLE 

9017 SPACE$=" ": ENTER$=CHR* ( 13) 

9018 SPACE=ASC (SPACE*) : ENTER=ASC ( ENTER*) 
9020 YESNO$(0)="YES": YESN0$<1)="N0 " 

9028 R0W=O: CDL=0: SCR=0 : REM DEFINED HERE FOR QUICK ACCESS 
9030 TLIN=64»l: REM LINE FOR TARGE^ AND SELECTION DISPLAY 
9035 ILIN=64*13: REM SUBJECT ID ' ' ■ 

9040 CLIN=ILIN-64*4: REM LINE F .HOICES (IGNORE, ABORT, ETC.) 

9045 RLIN=64*14: REM RATE LINE 

9048 RATE! =1.0: REM (0.5, 1.0, 2.0, 5.0) 

9050 RATE=INT(RATE! ) : REM INDEX FOR SECND ARRAY (0,1,2,5) 

9051 CARG=0: REM COLUMN OF TARGET CHAR 

9052 TARG=0: REM ASCII VALUE OF TARSET CHAR 

9053 SELECT=0: REM ASCII VALUE OF SELECTED CHAR 

9054 VLID=-l: REM TF VALID? (-i=YES) 

9055 SKAWR=0: REM £ : ON A TRIAL 

9060 PASSES=0: REM I. .. OF PASSES ON A TRIAL 

9065 SUDJFIN=0: REM NO MORE SUBJECTS? (-1=N0 MORE) 

9070 SBJCHANGE=0: REM NEW SUBJECT? (-1=YES) 

9072 SACCURATE=0: REM SUBJECT TOO ACCURATE? (-i=YES) 

9073 XCHOSEN=0: REM- SUBJECT CHOSEN FOR STUDY? (-1=YES) 

9075 IGNAWR=0: REM LAST TP.I AL INVALID? (-1=YES) 

9076 NT=0: REM NO. OF VALID TRIALS 

9077 N0=0: N1=0: REM NO. UV' 0 (+-1) ERRORS 
9080 CH0ICE7.=0: REM NO. DF CHOICES LEFT IN POOL 
9085 XY=0: REM INDEX OF CURRENT CHOICE 

9O90 FSPEC$="SCREEN/DAT"-: REM DEFAULT DATA FILE 
9350 GOSUB 9400: REM SETUP ARRAYS 
9360 RETURN 

9399 END : REt^********** f' '>^ ' * 

54 . 70 ' 
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9400 REM SETUP ARRAYS. SCR (ROW, COL) IS S5CREEN POSITION OF ROW AND COLUMN 

9410 RMAX=i: CMAX=12: REM ROW AND COLUMN SIZE 

9500 REM MAXIMUM TRIALS FOR ANY SUBJECT (INCL INVALID ONES) 

9510 NMAX=25 

9520 DIM CARG(NMAX): DIM PASSES (NMAX) 
9530 DIM SKAWR(NMAX): DIM RATE! (NMAX) 
9540 DIM VLID(NMAX) 

9600 REM ONLY LEGAL CHARACTERS FOR DISPLAY 
9610 LMAX=12: REM NO. OF LEGAL CHARACTERS 
9615 DIM TAKEN(LMAX): REM ASSIGNMENT ARRAY 
9660 RETURN 

9670 DATA L, A, H, X , E, T, P, U, J , Z , S^ D 
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